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ABSTRACT 


Rapid  prototyping  with  automated  retrieval  of  reusable  software  components  is  a 
software  development  method  to  construct  software  systems  expeditiously.  This  thesis 
describes  a  tool  to  enhance  the  practice  of  software  reuse  within  the  Computer  Aided 
Prototyping  System  (CAPS). 

A  software  base  interface  provides  prototype  designers  with  the  means  to  retrieve 
components  and  integrate  them  into  new  applications.  Reusable  components  are  retrieved 
from  the  software  base  using  a  formal  specification  as  the  search  key  or  through  a  browser. 
The  specification  language  used  is  the  Prototype  System  Description  Language  (PSDL). 
The  software  base  stores  the  reusable  components  in  an  object  oriented  database 
management  system  (ONTOS)  with  an  appropriate  PSDL  specification.  Following  a  query 
conducted  by  the  PSDL  specification,  chosen  retrieved  components  are  transformed  and 
integrated  to  the  system  under  development 

All  software  base  procedures,  including  the  storage,  retrieval,  and  integration  of  the 
components,  are  conducted  through  a  graphical  user  interface  which  is  designed  to 
demonstrate  and  manipulate  available  software  base  operations. 


ij’ilC 


GTSD  I 


Accesion  For 

NTIS  CRA&l 
DTIC  TA3 
Una  nno'j. iced  □ 

JUStifiCJtlOi. 


By . 

Distribution  / 


Availability  Codes 

Dist 

Avail  £ 
Spe 

wd  lor 
cial 

iii 


TABLE  OF  CONTENTS 


I.  INTRODUCTION . 1 

A.  SOFTWARE  REUSE . 1 

B.  RAPID  PROTOTYPING . 4 

C.  THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) . 6 

D.  THE  PROTOTYPE  SYSTEM  DESCRIPTION  LANGUAGE  (PSDL) . 7 

E.  OBJECTIVES . 9 

F.  ORGANIZATION  OF  THE  THESIS . 9 

n.  BACKGROUND  AND  PREVIOUS  RESEARCH . 10 

A.  INFORMATION  RETRIEVAL . 10 

B.  METHODS  FOR  RETRIEVING  REUSABLE  COMPONENTS . 11 

C.  CURRENT  RETRIEVAL  SYSTEMS  AND  TOOLS . 14 

HI.  CAPS  SOFTWARE  BASE . 18 

A.  COMPONENT  STORAGE . 19 

B.  RETRIEVING  THE  COMPONENTS . 22 

IV.  INTEGRATION  OF  REUSABLE  COMPONENTS . 24 

A.  INTEGRATING  THE  COMPONENTS  INTO  CAPS . 24 

B.  METHODOLOGY  FOR  TRANSFORMATION . 25 

C.  STRUCTURE  OF  THE  INTEGRATION  TOOL . 26 

V.  GRAPHICAL  USER  INTERFACE  FOR  SOFTWARE  BASE . 37 

A.  DESIGN  PRINCIPLES . 37 

B.  IMPLEMENTATION  CONSIDERATIONS . 38 

C.  SOFTWARE  BASE  GUI  ARCHITECTURE . 40 


IV 


D.  CONCLUSIONS 


42 


VI.  CONCLUSIONS  AND  FUTURE  RESEARCH . 44 

A.  ACCOMPLISHMENTS . 44 

B.  FUTURE  WORK . 44 

LIST  OF  REFERENCES . 47 

APPENDIX  A  -  INTEGRATION  EXAMPLES . 50 

A.  INTEGRATING  A  COMPONENT  RETRIEVED  BY  NAMED  LOOKUP  ....  50 

B.  INTEGRATING  A  COMPONENT  RETRIEVED  BY  PSDL  QUERY . 52 

APPENDIX  B  -  SOFTWARE  BASE  GUI  USER’S  MANUAL . 55 

A.  LIBRARY  FUNCTIONS . 56 

B.  MAIN  MENU . 58 

C.  VIEW  COMPONENT . 62 

D.  SELECT  COMPONENT . 63 

APPENDIX  C  -  SOURCE  CODE  FOR  INTEGRATION  TOOL . 66 

A.  psdMex.l . 66 

B.  psdl.y . 69 

C.  query_lex.1 . 80 

D.  query.y . 83 

E.  component_aux_pk:g . 94 

F.  component_compose_pkg . 100 

G.  component_parse.a . 110 


V 


H.  query_aux_pkg . Ill 

I.  query _compose_pkg . 117 

J.  query_parse.a . 127 

APPENDIX  D  -  SOURCE  CODE  FOR  GUI . 129 

A.  softbase.a . 129 

B.  global  package . 134 

C.  paneLlibrary  package . 143 

D.  paneMibadd  package . 152 

E.  paneMbdelete  package . 163 

F.  paneLldelwam  package . 173 

G.  paneljbselect  package . 183 

H.  panel_mainmenu  package . 193 

I.  paneLaddfile  package . 206 

J.  panel_keyword  package . 225 

K.  paneLquery  package . 236 

t 

L.  panel_compsel  package . 248 

M.  panel_viewpsdl  package . 259 

N.  panel_viewspec  package . 268 

O.  paneLviewbody  package . 277 

P.  paneLselect  package . 285 

Q.  paneLsavecomp  package . 298 


VI 


R.  panel_cdelwam  package . 310 

S.  paneLintegrate  package . 319 

T.  softbase_support  package . 330 

U.  softbase_creat_init.a . 335 

INITIAL  DISTRIBUTION  LIST . 336 


Vll 


1.  INTRODUCTION 


A.  SOFTWARE  REUSE 

1.  What  Is  Software  Reuse 

Software  reuse  is  using  the  elements  of  an  existing  system  in  the  construction  of 
another  similar  system. 

In  general,  software  reuse  includes  all  the  products  of  software  development 
cycle.  Software  documentation,  requirements,  analyses,  designs,  source  codes  etc.  can  all 
be  reused  in  this  broad  view. 

Reuse  of  software  is  an  important  issue  in  software  engineering  because 
developers  benefit  in  both  productivity  and  accuracy  by  reusing  software  entities  from  all 
phases  of  system  development. 

2.  Why  Reuse 

Much  has  been  written  about  the  software  crisis  in  recent  years.  It  was  stated  that 
software  is  too  costly,  insufficient  quality  and  its  development  is  nearly  impossible  to 
manage  [Cox90].  Software  reuse  may  reduce  the  pressure  of  the  software  crisis. 

A  great  percentage  of  a  typical  program  is  composed  of  potentially  reusable  code. 
It  is  desirable  to  make  use  of  existing  code  wherever  possible  since  this  can  have  a 
significant  impact  on  both  the  cost  and  duration  of  software  development. 

Automating  the  reusability  of  code  will  help  to  eliminate  the,  now  infamous, 
software  backlogs  [Bass87].  Furthermore,  design  analysis  can  focus  on  meeting  and 
matching  user  requirements  rather  than  verifying  internal  inconsistencies,  especially  in 
large  projects. 

It  was  reported  that  90%  of  the  cost  of  maintenance  can  be  reduced  by  software 
reuse,  another  report  described  that  the  cost  of  software  maintenance  is  usually  about  75% 
of  the  total  cost  of  the  whole  life-cycle  of  software.  Other  studies  show  that  40%  of  a  design 
and  75%  of  the  code  on  a  given  project  is  reused  [KL91]. 
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As  can  be  seen,  reuse  can  significantly  reduce  the  cost  of  development  and 
maintenance.  Other  than  cost,  software  reuse  may  help  improve  the  quality  of  the  software. 
Frequent  reuse  of  a  software  component  may  lead  to  frequent  evaluation  and  revisement. 
Therefore,  high  quality  components  may  be  constructed  through  the  reuse  process. 

Reusing  the  software  also  saves  time  in  all  stages  of  the  life  cycle,  makes  learning 
new  systems  easier,  improves  readability  and  robustness,  and  leads  to  more  modular, 
rational  designs. 

3.  How  To  Reuse 

While  software  reuse  appears  to  be  very  beneficial  it  has  not  been  widely  used.  It 
is  only  recently  that  emphasis  is  given  to  develop  software  systems  that  utilizes  reusability. 

Software  reuse  brings  many  research  questions  into  the  open.  The  arguments 
focus  on  the  question  that  what  the  candidates  are  for  software  reuse,  how  reusable  software 
components  should  be  stored,  how  we  can  locate  reusable  software  components,  and  how 
we  can  incorporate  reusable  software  components  into  our  own  software  system  [YT88]. 

The  candidates  for  software  reuse  brings  the  classification  of  software  reuse.  One 
example  classification  schema  is  reuse-in-the-small  and  reuse-in-the-large  [KL91].  Reuse- 
in-the-small  is  concerned  with  the  reuse  of  (small)  pieces  of  source  code  such  as  classes, 
subroutines,  (Ada)  packages  and  so  on.  Reuse-in-the-large  is  concerned  both  with  the  reuse 
of  large-grain  components  such  as  subsystems,  and  the  reuse  of  elements  beyond  source 
code  such  as  design  structure,  design  decision,  domain  knowledge,  analysis  information 
and  so  forth. 

This  thesis  will  address  only  the  source  code  reuse  schemes. 

Many  kinds  of  mechanisms  have  been  thought  for  the  storage,  retrieval  and 
incorporation  of  components  into  the  software.  One  of  the  earlier  methods  is  cut  and  paste 
mechanism  from  component  libraries  [FH87].  The  reusable  components  were  stored  in 
reference  libraries  and  retrieved  by  various  browsing  mechanisms.  Once  the  component  is 
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found,  the  user  should  copy  and  paste  the  component  information  into  his/her  program, 
sometimes  through  the  templates  that  was  provided  for  this  purpose. 

An  alternative  view  is  that  reuse  is  part  of  a  development  process  [Luba88]. 
Methods  that  deal  with  reuse  should  be  embedded  within  methodologies  that  support 
development,  and  environments  to  support  reuse  should  be  extensions  of  environments  to 
support  the  developmental  methodologies.  This  means  that  support  for  reuse  must  be  an 
option  supported  and  integrated  into  the  standard  mode  of  operation  of  the  tool.  The  tool 
should  support  the  storage,  retrieval,  and  incorporation  of  reusable  software  with  the  new 
developed  ones. 

The  difficulties  and  issues  that  arises  to  realize  such  a  system  can  be  summarized 

as  follows: 

•  The  amount  of  software  is  large  and  growing.  This  makes  the  search  of 
software  components  difficult. 

•  Standards  for  writing  and  documenting  software  are  not  used  or  are 
incompatible  from  project  to  project. 

•  Systems  are  not  designed  for  reusability. 

•  Various  systems  exist  in  many  different  programming  languages  and  their 
incompatibilities  pose  a  barrier  for  reusability. 

•  Software  under  development  generally  requires  modification  of  reusable 
component,  most  intimate  analysis  of  retrieved  and  developed  component  is 
necessary. 

Therefore,  we  may  conclude  that  realization  of  software  reuse  will  require: 

•  Standards  for  specification,  coding  and  testing  that  supports  reusability. 

•  A  model  for  reusable  components  that  represents  the  features  related  to 
reusability. 

•  A  design  methodology  such  that  reuse  should  be  a  continuing  aspect  of 
software  development,  embedded  within  the  tool  as  an  integral  part  of  the 
methodology,  rather  than  a  separate  option. 

•  An  efficient  and  fast  location,  retrieval  method  from  the  software  base.  This 
should  be  a  tool  managing  the  database  of  component  descriptions. 
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•  Incorporation  of  the  components  ensuring  that  the  combined  components  are 
fully  semantic  and  context  compatible  with  the  program  they  are  used  in. 

Computer  Aided  Prototyping  System  (CAPS)  is  designed  to  realize  all  these 
aspects.  The  requirement  for  the  necessary  standards  for  specification  and  representation  is 
achieved  through  the  use  of  Prototype  System  Description  Language  (PSDL).  A  software 
base  equipped  with  an  efficient  search  and  retrieval  mechanism  is  an  embedded  tool  in 
CAPS.  The  retrieved  components  are  incorporated  into  the  prototyped  ystem  ensuring  the 
fully  semantic  and  context  compatibility. 

B.  RAPID  PROTOTYPING 

The  demand  for  large,  high  quality  systems  has  increased  to  the  point  where  a  jump  in 
software  technology  is  needed.  Rapid  prototyping  is  one  of  the  most  promising  approaches 
to  this  problem  [BL88]. 

A  prototype  is  an  executable  model  of  the  proposed  system.  The  prototype  tries  to 
realize  the  requirements  such  that  the  behavior  of  the  proposed  system  is  observable.  This 
provides  continuous  modification  of  requirements  as  customers  can  visualize  and  test  them 
throughout  the  development. 

More  than  half  of  the  total  software  cost  originates  from  the  changes  made  on  software 
system,  called  maintenance  phase  in  traditional  software  life  cycle.  Moreover, 
requirements  errors  are  the  most  expensive  errors  to  recover  as  major  changes  should  be 
made  on  the  system.  Requirements  are  difficult  to  construct  and  validate  because  usually 
there  is  no  single  person  who  understands  all  of  the  constraints  of  proposed  system.  This  is 
especially  evident  in  large  systems  with  hard  real-time  constraints,  since  the  requirements 
for  such  systems  are  generally  very  difficult  to  understand  or  describe  [Luqi88].  The 
communication  problems  between  people  with  different  areas  of  expertise  worsens  the 
situation. 

Prototyping  helps  reduce  maintenance  costs  primarily  by  reducing  requirement  errors. 
As  prototyping  allows  extensive  testing  of  a  system,  it  also  reduces  the  implementation 
errors. 
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Prototyping  life  cycle  is  in  figure  1.1.  The  requirements  are  specified  repeatedly  by 
evaluating  the  executable  prototypes  and  negotiating  with  the  customer.  The  prototype  is 
constructed  based  on  the  initial  requirements.  This  prototype  is  a  partial  representation  of 
the  system  which  is  used  to  analyze  and  design  the  system.  Then,  the  designer  examines  the 
execution  of  the  prototype  together  with  the  customer  to  compare  the  actual  behavior  of  the 
prototype  with  the  expected  behavior.  The  feedback  from  the  customer  is  used  to  adjust  the 
requirements  and  to  modify  the  prototype  accordingly. 

The  repeated  process  of  user  validation  and  prototype  construction  continues  until  the 
prototype  successfully  meets  all  the  aspects  of  the  envisioned  system.  After  that,  the 
designer  uses  the  validated  requirements  as  a  basis  for  the  design  of  the  production 
software. 


Figure  1.1  -  Prototyping  life  cycle 

The  process  of  creating  and  modifying  prototypes  must  be  rapid  enough  for 
prototyping  to  be  an  efficient  methodology. 

We  need  software  tools  to  make  rapid  prototyping  practical.  Reusing  existing  system 
components  appears  to  be  the  most  economical  approach  for  constructing  prototypes. 
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These  reusable  components  should  also  have  sufficient  quality  to  obtain  the  necessary 
performance  from  the  final  system. 

The  method  used  for  rapid  prototyping  should  be  supported  by  a  clear,  simple,  and 
expressive  computational  model  that  is  also  supported  by  a  matching  language  and 
automated  prototyping  environment.  The  same  language  must  be  used  for  prototype  design 
and  for  software  base  retrievals  to  gain  the  benefits  of  reusable  software  components. 

This  model  and  language,  namely  CAPS  and  PSDL,  are  briefly  described  in  the 
following  two  sections. 

C.  THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

The  Computer  Aided  Prototyping  System  (CAPS)  is  an  integrated  environment  aimed 
at  rapidly  prototyping  hard  real-time  embedded  systems  [LK88,  Luqi91].  CAPS  software 
tools  includes  an  execution  support  system,  a  syntax  directed  editor  with  graphic 
capabilities,  a  software  base  and  an  engineering  database  management  system.  Figure  2.2 
shows  the  structure  of  CAPS. 

CAPS  provides  a  systematic  design  method  for  rapid  prototype  construction.  CAPS 
prototypes  a  system  through  translation  of  the  high  level  specification  language 
Prototyping  System  Description  Language  (PSDL)  [BLY88]  into  Ada  code  by  making  use 
of  the  stored  reusable  components.  To  generate  a  prototype,  the  designer  of  the  prototype 
uses  the  graphic  editor  to  create  a  graphic  representation  of  the  proposed  system.  This 
graphic  representation  is  used  to  generate  part  of  an  executable  description  of  the  proposed 
system,  represented  in  PSDL.  PSDL  specification  will  be  used  to  perform  an  automated 
search  of  the  component  library  for  preexisting  candidate  implementations.  An  integration 
and  transformation  schema  will  then  be  used  to  transform  the  PSDL  specification  into  the 
implementation  language  code  that  connects  the  retrieved  reusable  components.  The 
prototype  is  then  compiled  and  executed.  The  user  evaluates  the  prototype  against  the 
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expected  behavior  of  the  proposed  system.  Repetitions  of  this  process  should  yield  a  system 
that  satisfies  the  requirements. 


Figure  2.2  -  Structure  of  CAPS 

t 

D,  THE  PROTOTYPE  SYSTEM  DESCRIPTION  LANGUAGE  (PSDL) 

A  powerful,  easy  to  use,  and  portable  prototype  description  language  is  a  critical  part 
of  an  automated  rapid  prototyping  environment.  Such  a  language  is  needed  before  the  tools 
in  the  environment  can  be  built. 

PSDL  [BLY88,  BL88]  is  the  specification  language  used  in  CAPS.  It  serves  as  an 
executable  prototyping  language  at  a  specification  or  design  level  and  has  special  features 
for  real-time  system  design.  PSDL  has  facilities  for  recording  and  enforcing  timing 


7 


constraints,  and  for  modeling  the  control  aspects  of  real-time  systems  using  nonprocedural 
control  constraints,  operator  abstractions,  and  data  abstractions.  It  is  especially  well  suited 
for  large  real-time  systems,  and  is  useful  for  prototyping  typical  Ada  applications.  Ada  is 
convenient  for  implementing  PSDL  because  the  mechanisms  of  Ada  support  the  features 
of  PSDL.  Therefore,  PSDL  can  easily  interface  to  reusable  Ada  components  as  PSDL 
execution  support  system  is  also  in  Ada.  PSDL  is  used  to  describe  the  connections  between 
the  components  of  a  prototype,  and  to  specify  the  behavior  of  the  reusable  components  in 
the  prototype  as  well  as  those  in  the  software  base. 

PSDL  provides  two  kinds  of  building  blocks  for  prototypes:  abstract  data  types  and 
operators.  Software  systems  are  modeled  as  networks  of  operators  communicating  via  data 
streams.  The  PSDL  data  types  include  built-in  types  of  Ada,  user  defined  abstract  types,  the 
special  types  time  and  exception,  and  the  types  that  can  be  built  using  the  type  constructors 
of  PSDL. 

PSDL  operators  have  two  major  parts:  the  specification  and  implementation.  The 
specification  part  contains  attributes  describing  the  form  of  the  interface,  the  timing 
characteristics,  and  both  formal  and  informal  descriptions  of  the  observable  behavior  of  the 
operator.  Specification  may  optionally  include  inputs,  outputs,  exceptions,  generic 
parameters,  states  and  timing  information.  These  interface  characteristics  are  defined  by  the 
software  engineer  during  the  design  process  to  specify  the  operator  and  form  the  basis  for 
retrievals  from  a  reusable  component  library  or  software  base. 

The  implementation  part  determines  if  the  operator  is  atomic  or  composite.  Atomic 
operators  have  an  implementation  keyword  specifying  the  underlying  programming 
language,  followed  by  the  name  of  the  implementation  module  implementing  the  operator. 
This  name  is  supplied  either  as  a  result  of  a  successful  retrieval  from  the  software  base  or 
is  supplied  by  designer.  Composite  operators  have  the  attributes  communication  graph, 
internal  data,  control  constraints,  and  informal  description. 
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E.  OBJECTIVES 


The  major  purpose  of  this  thesis  is  to  provide  tools  to  facilitate  the  practice  of  software 
reuse  within  the  Computer  Aided  Prototyping  System  (CAPS). 

Currently,  a  software  base  provides  prototype  designers  with  the  means  to  retrieve 
components.  Reusable  components  are  retrieved  from  the  software  base  using  a  formal 
specification  as  the  search  key  or  through  a  browser.  The  specification  language  used  is  the 
Prototype  System  Description  Language  (PSDL).  The  software  base  stores  the  reusable 
components  in  an  object  oriented  database  management  system  (ONTOS)  with  an 
appropriate  PSDL  specification. 

The  study  conducted  in  this  thesis  was  aimed  at  achieving  three  major  goals:  (1)  to 
modi^  the  software  base  to  allow  the  integration  of  the  retrieved  components  into  new 
applications;  (2)  to  transform  and  integrate  the  chosen  retrieved  components  to  the  system 
under  development;  (3)  to  design  and  develop  a  graphical  user  interface  (implemented  by 
using  TAE  Plus)  for  manipulating  available  software  base  operations,  including  the 
storage,  retrieval,  and  integration  of  the  components. 

F.  ORGANIZATION  OF  THE  THESIS 

Chapter  II  provides  a  brief  background  on  information  retrieval  methodology  and 
gives  an  overview  of  the  current  retrieval  systems  and  tools.  Chapter  III  describes  the 
structure  of  the  CAPS  software  base.  Chapter  IV  discusses  the  integration  of  reusable 
components  into  new  applications  and  provides  the  design  methodology.  Chapter  V 
describes  the  design  and  implementation  of  software  base  graphical  user  interface.  Chapter 
VI  is  the  conclusions  and  recommendations  for  further  research. 
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11.  BACKGROUND  AND  PREVIOUS  RESEARCH 


This  chapter  describes  some  technical  background  concerning  reusable  software 
components  and  their  retrieval,  and  reviews  previous  and  current  systems  that  implement 
various  methodologies  to  achieve  this  purpose. 

A.  INFORMATION  RETRIEVAL 

The  problem  of  retrieving  reusable  software  components  from  a  library  is  in  general 
an  information  retrieval  problem  [Stei91].  The  important  concepts  from  information 
retrieval  that  relate  to  reusable  component  retrieval  are  representation,  search,  and 
measures  of  performance. 

Representation  is  the  way  the  object  sought  is  structured  to  facilitate  retrieval.  For 
example  a  list  of  keywords  may  be  provided  for  the  future  retrieval  of  a  certain  component. 
The  method  of  representation  must  support  the  method  used  to  search  for  the  object  A  lot 
of  research  has  been  conducted  for  search  mechanisms,  especially  in  the  areas  of  artificial 
intelligence  and  database  management  systems.  The  method  of  representation  and  the 
method  of  search  work  together  to  form  a  cohesive  environment  for  information  retrieval. 
The  more  refined  and  precise  the  method  of  representation,  the  easier  the  search  mechanism 
becomes.  Various  representation  and  search  mechanisms  will  be  described  in  the  following 
section. 

The  two  most  important  measures  of  performance  are  precision  and  recall  [SM83]. 

i 

Precision  is  the  ratio  between  the  number  of  relevant  components  retrieved  and  the  total 
number  retrieved.  It  is  the  answer  to  the  question,  “What  percentage  of  the  retrieved 
components  are  relevant?”  Recall  is  the  ratio  between  the  number  of  relevant  components 
retrieved  and  the  number  of  relevant  components  in  the  database.  It  is  the  answer  to  the 
question,  “What  percentage  of  the  relevant  components  on  the  database  did  my  query 
find?”  Precision  and  recall  obtain  ideal  values  when  the  set  of  components  retrieved  is 
exactly  the  same  as  the  set  of  components  that  are  relevant. 
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B.  METHODS  FOR  RETRIEVING  REUSABLE  COMPONENTS 


Almost  all  of  the  tools  developed  for  retrieving  reusable  components  use  one  or  more 
of  three  different  approaches  for  retrieval:  browsers,  informal  specifications,  or  formal 
specifications.  The  fundamentals  of  each  approach  will  be  described  in  this  section  and  then 
some  existing  tools  using  these  methods  will  be  reviewed  in  section  II.C. 

1.  Browsers 

A  browser  is  a  general  purpose,  usually  window-based  tool  for  looking  through 
collections,  categories,  or  hierarchies  of  components  at  various  levels  of  abstraction 
[Meye88].  The  objective  is  to  allow  the  system  user  to  manually  search  for  the  desired 
component. 

The  advantage  of  a  browser  is  that  the  user  is  given  complete  control  over  the 
entire  collection  of  components.  This  is  especially  useful  if  the  user  is  familiar  with  the 
content  of  the  software  collection  and  already  knows  the  components  being  searched. 

The  first  disadvantage  is  that  the  method  is  basically  manual,  and  the  user  should 
browse  through  the  whole  set  of  components  to  find  the  one  that  is  desired.  This  also  means 
a  very  low  precision. 

Second,  it  requires  the  user’s  knowledge  of  the  structure  of  the  component 
collection.  Another  issue  related  to  this  problem  is  that  the  search  may  be  local,  causing  the 
failure  or  inefficiency  of  the  retrieval;  that  is,  if  a  suitable  component  is  defined  elsewhere 
in  the  system,  it  is  not  going  to  be  found  if  user  doesn’t  know  to  look  at  there. 

Third,  unless  retrieved  component  is  equipped  with  proper  documentation,  the 
user  should  look  into  the  source  code  to  determine  if  the  component  satisfy  the 
requirements.  Another  related  issue  is  that  if  the  user  has  not  found  the  exactly  matching 
component  for  the  needs,  there  will  be  no  clear  termination  point  for  search. 

Fourth,  if  the  size  of  the  software  base  is  large,  this  method  will  be  unacceptably 
insufficient  and  time  consuming. 
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2.  Informal  Specifications 

Retrieval  techniques  based  on  informal  specifications  require  the  user  to  describe 
or  list  some  of  the  attributes  of  the  component  being  looked  for.  Informal  specification 
methods  include  keyword  search,  multi-attribute  search,  and  natural  language  interfaces. 

a.  Keyword  Search 

Keyword  search  mechanisms  require  the  user  to  specify  a  list  of  words 
relevant  to  the  object  being  sought  Keywords  can  be  drawn  from  a  known  system 
vocabulary  (controlled  vocabulary),  or  they  can  be  unconstrained  (uncontrolled 
vocabulary).  In  the  case  of  unconstrained  keywords,  synonym  tables  are  often  used  to  find 
more  standard  words  on  which  to  perform  the  query  [SM83]. 

The  advantages  of  this  approach  are  easy  implementation  and  its  conceptual 
simplicity  for  the  user.  These  aspects  make  it  a  very  commonly  used  technique. 

One  disadvantage  of  this  approach  is  precision  and  recall  of  the  system 
depend  on  the  number  of  the  keywords  used.  A  lower  number  of  keywords,  for  example, 
one,  results  in  high  recall  and  low  precision  as  a  large  number  of  components  will  be 
retrieved;  whereas  too  many  keywords  will  have  the  opposite  effect. 

The  second  disadvantage  is  the  user  should  be  familiar  with  the  structure  of 
keyword  categories.  Both  of  this  disadvantages  cause  the  search  to  be  an  exercise  of  trial 
and  error. 

b.  Multi-attribute  Search 

Multi-attribute  search  mechanisms  are  similar  to  keyword  search 
mechanisms,  but  also  use  other  characteristics  of  the  component  being  searched.  These 
characteristics  that  can  be  utilized  for  retrieval  are  the  class  of  the  object  (procedure, 
function,  package,  etc.),  the  number  and  types  of  parameters,  the  number  of  operations  it 
supports,  its  domain  of  use,  etc. 
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The  advantage  of  this  method  is  that  a  component  description  contains  more 
than  just  keyword  information.  The  attributes  taken  together  make  up  a  classification 
scheme  that  provides  more  information  than  would  be  present  in  a  pure  keyword  search. 

The  disadvantage  of  multi-attribute  search  is  that  the  classification  and 
subsequent  storage  location  of  a  component  defined  by  its  attributes  is  left  to  the 
administrator,  but  users  will  not  necessarily  classify  the  same  component  the  same  way.  If 
the  user  succeeds  in  filling  in  the  same  values,  the  query  will  be  successful,  otherwise  recall 
of  similar  components  will  be  low. 

c.  Natural  Language  Interfaces 

This  is  a  growing  area  of  computer  science  research.  An  advantage  of  this 
system  is  the  ease  of  language  query  formulations  by  system  users. 

In  reusable  component  retrieval,  the  query  will  be  issued  through  a  natural 
language.  Because  of  the  ambiguity  inherent  in  the  broad  semantics  of  natural  language,  a 
complex  and  detailed  processing  of  the  input  language  needs  to  be  applied.  Overcoming  the 
difficulties  of  semantic  analysis  is  the  main  challenge  in  dealing  with  natural  languages. 

3.  Formal  Specifications 

There  are  many  specification  languages  that  has  been  used  to  describe  the 
semantics  of  software  processes.  Examples  of  existing  specification  formalisms  are 
predicate  calculus  [RW90b],  plan  calculus  [RW90a],  and  algebraic  formalisms  [GTW78]. 

Because  these  specification  languages  are  based  on  such  specification  formalisms 
they  are  free  from  ambiguity  and  can  be  transformed  into  normal  representations  by  using 
logic  and  term  rewriting  rules  without  changing  their  meaning. 

The  disadvantage  is  specifications  may  be  difficult  for  to  write.  Another 
disadvantage  is  that  processing  times  for  the  search  algorithms  may  be  excessive  depending 
on  the  approach  taken.  Finally,  matching  formal  specifications  is  a  hard  problem. 


13 


C.  CURRENT  RETRIEVAL  SYSTEMS  AND  TOOLS 


This  section  describes  some  of  the  systems  that  have  been  built  to  perform  reusable 
component  retrieval  and  investigates  the  methods  used  by  each  system. 

1.  Draco 

The  Draco  project  [Neig84]  is  an  approach  to  software  engineering  that  has  had  a 
large  impact  on  software  reusability  in  general.  The  Draco  approach  focuses  on  domain 
engineering  of  software. 

The  most  important  aspect  of  Draco  is  the  domain  language.  Software 
components  are  organized  into  problem  areas  or  domains  and  a  domain  language  describes 
objects  and  operations  of  a  particular  domain.  There  is  a  reusable  component  associated 
with  each  domain  language  object  or  operation.  Since  there  is  a  potentially  large  number  of 
components  within  a  domain,  a  classification  scheme  is  developed  for  the  components 
called  faceted  classification  to  aid  in  organizing  and  retrieving  the  components. 

Using  faceted  classification,  Draco  approach  utilizes  a  multi-attribute  query 
method.  Queries  are  constructed  by  the  formulation  of  a  tuple  of  attributes  that  best 
characterizes  a  particular  domain.  A  query  session  begins  with  the  most  specific  query,  that 
is,  all  attributes  filled  in.  If  the  results  of  the  query  are  unsatisfactory,  the  user  may 
generalize  the  query  by  inserting  wildcards  for  attribute  values. 

The  advantages  of  faceted  classification  are  that  it  is  conceptually  simple  for  users 
and  relatively  easy  to  implement.  Because  of  this,  the  concept  has  been  borrowed  to 
implement  the  retrieval  mechanisms  in  both  RAPID  (see  Section  n.C.2)  and  OSS  (see 
Section  II.C.S). 

One  disadvantage  of  multi-attribute  search  is  that  semantically  similar 
components  may  not  be  found  when  their  attribute  definitions  are  different.  Draco 
alleviates  this  problem  by  maintaining  a  measure  of  conceptual  closeness  for  the  term  lists 
of  each  attribute.  This  way,  an  unsuccessful  search  can  be  tried  again  using  an  alternative 
but  similar  term  in  one  of  the  attributes. 
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The  disadvantages  of  faceted  classification  are  that  it  is  not  suitable  for 
unconstrained  domains  and  semantically  similar  components  may  be  missed  from  other 
domains,  even  with  a  conceptual  closeness  measure. 

2.  RAPID 

The  RAPID  (Reusable  Ada  Packages  for  Information  System  Development) 
project  is  an  ongoing  effort  in  the  Depanment  of  Defence  [VogeQO].  The  objective  of 
RAPID  is  to  provide  software  engineers  with  quick  access  to  reusable  Ada  packages  in  the 
information  systems  domain.  The  functions  it  performs  are  reusable  software  component 
classification,  storage,  and  retrieval. 

RAPID  uses  a  faceted  classification  scheme  to  organize  and  retrieve  components 
and  falls  into  the  category  of  multi-attribute  search.  No  measures  of  performance  or  quality 
assessments  are  available  yet. 

3.  The  Reusable  Software  Library 

The  Reusable  Software  Library  is  a  system  designed  to  make  software  reuse  an 
integral  part  of  the  software  development  process  [BW87].  The  system  couples  a  passive 
software  database  with  interactive  software  design  tools  to  help  software  developers  find 
and  evaluate  components  to  meet  their  requirements. 

Components  are  stored  in  the  database  with  attribute  values  that  provide  a  basis 
for  search.  There  are  two  methods  available  to  search  for  components,  standard  multi¬ 
attribute  search  and  natural  language.  The  multi-attribute  approach  provides  a  menu  driven 
interface  in  which  the  user  selects  the  attributes  with  which  to  perform  the  search. 
Alternatively,  the  user  may  express  his  query  in  the  form  of  natural  language,  such  as  “I 
need  a  stack  package.”.  The  system  parses  the  input,  extracts  keywords  from  it  and  uses 
those  words  as  attributes  to  perform  the  search. 

The  designers  of  the  system  report  that  the  natural  language  front  end  is 
considerably  easier  to  use  but  the  search  is  significantly  slower,  by  a  factor  of  five  to  ten 
because  of  the  natural  language  parsing  overhead  involved. 
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4.  The  Programmer’s  Apprentice 

The  goal  of  Programmer’s  Apprentice  project  is  to  apply  artificial  intelligence 
techniques  in  an  effort  to  automate  the  programming  process  [RW90a].  It  is  designed  to 
provide  intelligent  assistance  in  all  phases  of  a  programming  task. 

A  reusable  component  is  called  a  cliche.  A  cliche  represents  a  commonly  used 
combination  of  elements  such  as  abstract  data  types,  binary  searches,  etc.  Thus,  programs 
may  be  considered  as  collections  of  interrelated  cliches. 

A  formalism  called  Plan  Calculus  is  developed  to  represent  cliches.  A  plan 
defines  a  single  cliche  in  three  parts:  a  plan  diagram,  a  logical  annotation,  and  an  overlay. 
Together  these  parts  constitute  a  language  independent  formalism  for  describing  reusable 
software  components. 

A  maintenance  tool  called  the  Recognizer  automatically  finds  all  occurrences  of 
a  given  set  of  cliches  in  a  program  and  builds  a  hierarchical  description  of  the  program  in 
terms  of  the  cliches  found.  It  is  not  clear  whether  the  Recognizer  will  be  used  as  a  general 
purpose  component  retrieval  tool.  It  is  currently  limited  to  finding  algorithmic  cliches  but 
the  researchers  hope  to  extend  its  capability  to  find  data  structures  and  data  abstraction  as 
well. 

5.  Operation  Support  System 

The  Operation  Support  System  (OSS)  is  an  ongoing  project  aimed  at  developing 
an  integrated  software  engineering  environment  undertaken  by  Naval  Ocean  Systems 
Center  [Stei91].  One  goal  of  the  project  is  to  establish  a  Navy  software  library  of  reusable 
software  components. 

The  current  prototype  library  subsystem  allows  component  retrieval  using  faceted 
classification,  keywords,  or  a  textual  browser.  The  components  currently  stored  in  the 
library  are  large  command,  control,  and  communications  subsystems.  Since  the  library  is 
in  its  early  stages,  no  information  is  available  on  its  performance  characteristics. 
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6.  Specifications  as  Search  Keys 

An  experimental  system  developed  at  Carnegie  Mellon  University  uses  formal 
specifications  to  search  software  libraries  [RW90b].  Each  function  in  the  library  has  a 
corresponding  formal  specification.  Specification  matching  is  the  process  of  determining 
whether  a  specification  of  a  library  function  satisfies  a  query.  Specifications  and  queries  are 
written  in  XProlog. 

Each  specification  has  a  signature  and  some  semantic  information.  Their  aim  is  to 
match  first  on  signature  and  then  increase  precision  by  matching  on  specification 
semantics.  The  system  designers  claim  that  the  use  of  semantics  in  specification  matching 
increases  precision.  Although  they  give  examples  showing  precision  is  improved,  they  do 
not  provide  statistics  that  indicate  how  much. 


III.  CAPS  SOFTWARE  BASE 


The  paradigm  for  rapid  prototype  construction  in  CAPS  leads  the  designer  from  a 
graphical  representation  of  the  prototype,  through  specification  with  a  prototyping 
language  (PSDL),  and  then  on  to  code  generation.  Figure  3. 1  shows  the  prototyping  process 
supported  by  CAPS  [LK88]. 


connections 

Figure  3.1  -  The  CAPS  Prototyping  process 
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As  seen,  CAPS  takes  advantage  of  a  library  of  reusable  software  components.  The 
prototype  designer  writes  specifications  for  the  operators  and  data  streams  to  model  system 
requirements,  these  specifications  are  used  to  locate  components  that  will  satisfy  those 
requirements.  A  retrieval  system  that  is  automatic,  efficient,  and  effective  relieves  the 
designer  from  having  to  use  a  browser  or  some  other  manual  means  to  locate  components. 
This  is  particularly  beneficial  when  the  software  base  contains  a  large  number  of 
components.  Once  the  desired  component  is  retrieved,  the  next  challenge  is  to  integrate  it 
into  the  system. 

The  functionality  of  software  base  can  be  divided  into  three  main  categories:  Storage, 
retrieval,  and  integration  of  components.  This  scheme  can  be  viewed  in  figure  3.2. 


Figure  3.2  -  Functionality  of  Software  Base 

The  storage  and  retrieval  facility  of  software  base  is  described  in  the  remainder  of  this 
chapter,  and  integration  process  is  described  in  chapter  iv. 

A.  COMPONENT  STORAGE 

Due  to  the  complexity  of  storing  variable  length  source  code  and  querying  the  software 
base  using  PSDL  specifications,  a  powerful  DBMS  is  necessary.  This  DBMS  should  also 
support  multi-user  and  networked  access  to  its  data  as  CAPS  is  designed  for  multi-user 
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networking  environment.  This  database  should  perform  the  component  storage  facility  of 
the  software  base. 


1.  ONTOS  Database  Management  System 

Ontos  is  a  distributed  object  database  management  system  [Onto90].  It  consists 
of  a  database,  a  set  of  utilities,  and  a  C++  interface.  It  was  selected  for  use  in  the  software 
base  project  because  it  has  sufficient  capabilities  to  handle  the  requirements  for  the 
implementation  of  an  advanced  reusable  software  component  library. 

Ontos  allows  the  database  developer  the  ability  to  make  any  data  object  persist 
past  the  execution  of  the  program  that  created  it.  To  achieve  this,  the  ONTOS  class  library 
introduces  an  Object  class.  It  is  the  parent  of  all  persistent  classes.  Object  defines  a 
constructor  for  creating  objects  in  the  database  and  a  destructor  for  deleting  them.  The 
Object  class  constructor  assigns  each  object  a  unique  identifier  and  provides  methods  to 
store  and  retrieve  them. 

Ontos  includes  a  set  of  persistent  aggregate  classes  in  order  to  efficiently  handle 
collections  of  persistent  objects.  The  aggregate  classes  include  Dictionaries,  Lists,  Sets,  and 
Arrays.  The  aggregate  class  hierarchy  is  shown  in  figure  3.3. 
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Figure  33  -  The  Aggregate  Class  Hierarchy 
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The  aggregate  classes  are  container  classes  and  are  used  to  deal  with  groups  of 
objects.  The  List  class  is  analogous  to  a  linked  list  data  structure.  The  Set  class  implements 
the  standard  concept  of  set  and  the  Array  class  implements  the  concept  of  arrays.  The 
Dictionary  class  is  the  most  versatile  of  the  aggregate  classes  and  it  is  extensively  used  to 
implement  the  structure  of  the  software  base.  All  of  the  four  classes  are  fully  dynamic  and 
can  grow  without  bound. 

The  Dictionary  class  is  a  keyed  data  structure  that  can  be  ordered  or  unordered. 
Every  entry  in  a  Dictionary  has  two  attributes  stored,  the  Tag  and  the  Element.  The  Tag  is 
used  for  indexed  look  up  and  the  Element  is  to  hold  the  data.  Dictionaries  may  allow  or  not 
allow  duplicate  elements  for  a  given  Tag. 

Ordered  Dictionaries  are  maintained  in  ascending  key  order  and  use  B-tree  access 
structure  to  sort  entries  based  on  the  relative  ordering  of  their  tag  values.  Unordered 
Dictionaries  use  hash  table  access  structure. 

2.  Storing  The  Components 

The  CAPS  software  base  [McDo9II  is  designed  as  a  general  purpose  tool  capable 
of  storing  components  implemented  in  many  programming  languages.  Because  of  the 
differences  in  the  capabilities  of  each  programming  language  there  are  differences  in  the 
way  the  pre-defined  abstract  data  types  used  in  PSDL  to  specify  components  are  interpreted 
by  the  software  base.  These  differences  in  the  interpretation  of  PSDL  specifications  require 
that  all  components  of  a  particular  implementation  language  be  considered  in  a  unique 
domain.  It  is  also  possible  to  create  multiple  component  domains  for  a  given 
implementation  language.  Each  domain  is  a  library  composed  of  five  parts:  a  component 
dictionary,  a  keyword  library,  an  operator  library,  an  abstract  data  type  library,  and  a 
recognized  type  matrix. 

For  each  component  in  a  domain,  six  text  files  must  be  stored.  These  files  are  the 
PSDL  specification,  the  implementation  language  specification,  the  implementation  body. 
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the  informal  description,  the  axiomatic  specification,  and  a  normalized  version  of  the 
axiomatic  specification. 

A  persistent  class  was  designed  inheriting  from  the  Ontos  class  Object  to  allow 
storage  and  retrieval  of  these  text  files.  Instances  of  this  class  is  used  as  attributes  of  each 
component  in  the  software  base  to  store  the  files. 

B.  RETRIEVING  THE  COMPONENTS 

There  are  three  methods  to  retrieve  a  stored  component;  by  PSDL  query,  by  keyword 
query,  and  through  a  component  name  browser.  Although  browsing  by  component  name 
and  keyword  querying  are  not  the  preferred  methods  for  finding  reusable  components  in  a 
large  software  base,  they  are  necessary  features  of  any  software  collection. 

Each  domain  is  divided  into  two  categories:  abstract  data  types  and  operators.  An 
ordered  list  of  components  is  provided  for  browsing  the  components  by  their  name  in  these 
disjoint  categories. 

Each  software  base  library  also  includes  a  keyword  library  for  handling  keyword 
access  to  its  components.  The  keyword  attribute  of  PSDL  specification  is  used  to  perform 
a  keyword  structured  search  in  the  software  base.  The  result  of  a  keyword  query  is  a  list  of 
those  components  that  posses  one  or  more  of  the  query  keywords.  The  list  is  ordered  with 
those  components  that  satisfy  the  most  query  keywords  coming  first. 

1.  Query  by  PSDL  Specification 

This  method  uses  the  syntax  and  semantics  of  the  PSDL  specification  to  conduct 
the  search  for  a  component.  First,  the  PSDL  specification  is  modified  to  improve  the 
efficiency  of  the  search.  The  process  of  transforming  or  manipulating  the  specification  for 
a  reusable  software  component  is  called  normalization. 

Components  to  be  stored  goes  through  a  syntactic  and  semantic  normalization 
process  that  transform  the  component’s  PSDL  specification  to  facilitate  later  matching.  The 
normalized  specification  is  stored  with  the  component  in  the  software  base.  At  the  retrieval 
phase,  a  query  for  a  library  component  is  foimed  by  constructing  the  PSDL  specification 
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for  the  desired  component.  The  query  specification  is  syntactically  and  semantically 
normalized  and  then  matched  against  the  stored  specifications. 

Syntactic  normalization  standardizes  the  form  of  the  query’s  interface 
characteristics  to  be  used  in  syntactic  matching.  Semantic  normalization  transforms  the 
signature  and  axioms  of  the  specification  to  make  them  suitable  for  semantic  matching 
[Stei91].  Syntactic  matching  takes  place  before  the  semantic  matching.  Syntactic  matching 
is  faster  and  quickly  narrows  the  list  of  possible  candidates  while  semantic  matching  is  time 
consuming  and  should  be  applied  to  as  small  a  candidate  list  as  possible.  The  main  benefit 
of  syntactic  matching  is  speed  whereas  the  advantage  of  semantic  matching  is  accuracy. 
This  schema  is  shown  in  figure  3.4.  The  functional  programming  language  OBJ3  is  used 
for  semantic  matching  and  further  details  can  be  found  in  [Stei91]. 


Figure  3.4  -  Normalization  for  Component  Retrieval 
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IV.  INTEGRATION  OF  REUSABLE  COMPONENTS 


Once  a  reusable  component  is  retrieved,  incorporating  it  into  the  developed  software 
system  is  an  important  task  of  a  software  base.  Software  base  should  support  the  automatic 
adaptation  of  the  retrieved  components  into  the  program  at  construction  time  ensuring  the 
full  context  compatibility.  This  process  will  require  a  transformation  procedure  to  be 
applied  on  the  retrieved  components  such  as  changing  the  parameters,  operator  names  etc. 
as  well  as  instantiating  the  generic  parameters. 

A.  INTEGRATING  THE  REUSABLE  COMPONENTS  INTO  CAPS 

Software  base  should  provide  a  component  implementation  that  meets  the  needs  of  the 
CAPS  execution  support  system.  To  accomplish  this,  the  retrieved  component  should  be 
transformed  into  a  suitable  form  to  be  used  by  the  implemented  system.  On  the  other  hand, 
software  base  cannot  directly  generate  implementation  code  as  it  is  not  language  specific. 
Therefore,  we  need  an  integration  tool  to  generate  the  necessary  code  to  incorporate  the 
component  into  the  system.  In  the  rest  of  this  chapter,  the  methodology  and  the 
implementation  of  an  integration  tool  developed  for  incorporating  the  retrieved 
components  into  the  CAPS  is  discussed. 

I.  An  Integration  Tool  For  CAPS  Software  Base 

The  software  base  provides  three  methods  to  retrieve  a  stored  component  as 
discussed  previously.  The  kind  of  method  used  for  retrieval  is  important  for  incorporation. 
We  have  a  PSDL  query  containing  the  requirements  of  execution  suppon  system  if 
component  is  retrieved  by  query,  and  no  specification  is  provided  if  keyword  query  or 
browsing  by  component  name  methods  are  used. 

If  component  is  retrieved  by  PSDL  query,  we  can  use  this  query  specification  in 
transformation  to  change  the  input/output  parameter  names,  operator  or  type  names,  and  to 
instantiate  the  generic  parameters  if  there  is  any. 
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If  retrieval  is  conducted  through  other  methods,  no  change  of  parameter  and 
operator/type  name  is  necessary,  but  we  still  should  have  means  to  instantiate  the  generic 
parameters  and  transform  the  retrieved  component  into  a  form  that  can  be  used  by  the 
system. 

B.  METHODOLOGY  FOR  TRANSFORMATION 

It  has  been  difficult  to  reuse  software  components  in  practice  as  in  most  cases  two 
instances  of  the  same  component  are  rarely  alike.  Typically,  many  small  variations  on  a 
theme  exist  and  generally  it  is  difficult  to  predict  which  variation  will  be  needed  in  a  certain 
implementation. 

This  situation  can  be  alleviated  by  providing  a  transformation  mechanism  that  adapts 
the  components  explicitly  stored  in  software  base.  This  capability  has  two  important  effects 
on  software  reuse.  First,  retrieval  process  has  a  much  better  chance  of  successfully 
retrieving  a  specified  component  from  the  software  base  compared  to  a  system  that  can  only 
return  components  explicitly  stored  in  the  software  base.  Second,  automatically  adapting 
the  reusable  components  after  retrieval  is  important  in  rapid  prototyping  where  designer 
time  is  at  a  premium. 

Transformations  should  take  place  in  such  a  way  that  it  should  have  no  effect  on  the 
stored  component,  yet  it  should  be  readily  usable  by  the  system.  This  means  that  instead  of 
modifying  the  retrieved  component,  it  should  be  used  as  a  basis  for  the  transformation 
module.  In  our  case,  this  is  accomplished  through  the  with  statement  for  Ada  libraries.  The 
same  schema  may  be  applied  to  other  languages  through  an  inheritance  mechanism  as  it 
will  be  the  case  in  C++.  This  module  should  be  automatically  generated  as  a  part  of  the 
retrieval/integration  system. 

In  our  application,  the  transformation  module  will  be  created  for  each  retrieved 
component  and  will  be  embodied  in  its  own  package  through  the  integration  process.  This 
package  will  be  saved  in  the  work  area  and  will  be  used  by  the  designer.  All  name  and 
parameter  changes  as  well  as  generic  instantiations  will  be  embedded  in  this  package. 
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Because  there  are  various  ways  to  retrieve  a  component,  the  creation  of  this  transformation 
module  varies  for  each  method. 

The  implementation  of  transformation  module  is  discussed  in  sections  4.D  and  4.E. 
The  structure  of  integration  tool  is  discussed  in  the  next  section. 

C.  STRUCTURE  OF  THE  INTEGRATION  TOOL 
The  Integration  Tool  is  used  to; 

(i)  input  PSDL  of  the  retrieved  component  (and  query  if  PSDL  query  method  is  used), 

(ii)  transform  the  required  component,  parameter  names  and  perform  instantiations, 

(iii) output  the  transformation  module  encapsulated  in  its  own  package. 

The  structure  of  the  integration  tool  is  in  Hgure  4.1. 


Figure  4.1  -  Structure  of  The  Integration  Tool 
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In  the  first  step,  the  PSDL  specification  of  the  retrieved  component  and  the  PSDL 
query  (if  the  query  by  PSDL  specification  method  is  used  for  retrieval)  are  parsed  by  a 
LARL(l)  parser.  This  parser  is  constructed  by  using  the  tools  ayacc  and  aflex,  which  are 
Ada  versions  of  the  parser  generator  tools  yacc  and  lex  that  are  provided  in  UNIX 
environment  [TTS88.  Self90]. 

In  the  second  step,  PSDL  of  the  retrieved  component  is  evaluated.  Depending  on  the 
retrieval  method,  various  structures  that  will  be  used  to  compose  the  transformation  module 
are  created.  If  retrieval  is  performed  by  PSDL  query,  operator  and/or  type  names  and 
parameters  of  retrieved  component  are  also  mapped  to  the  corresponding  descriptions 
given  in  query. 

In  the  third  step,  an  Ada  package  is  created  and  the  transformed  representation  of  the 
retrieved  component  is  written  into  this  package  to  be  used  by  the  prototype. 

1.  PSDL  Parser 

Two  LARL(l)  parsers  are  used  to  parse  the  PSDL  specification  of  the  retrieved 
component,  and  the  PSDL  query  if  supplied.  Because  the  actions  and  the  resulting 
structures  to  be  formed  will  be  different  for  two  types  of  integration  process  we  need  two 
different  parsers,  one  for  the  integration  of  the  components  retrieved  by  PSDL  query,  one 
for  the  integration  of  the  components  retrieved  by  named  look  up  or  keyword  query.  Each 
parser  is  constructed  by  using  a  parser  generator  -ayacc,  and  a  lexical  analyzer  -aflex. 

Two  auxiliary  packages  are  supplied  to  provide  the  structures  in  which  the 

t 

information  about  the  parsed  PSDL  specifications  will  be  stored  for  use  during  the 
composing  process.  These  packages  also  contain  the  Ada  code  for  the  semantic  actions 
which  will  take  place  during  the  parsing  process  of  PSDL  specifications. 
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The  top  level  diagram  of  the  parser  is  in  Figure  4.2. 


Figure  4.2  •  Parser  Generation 
a.  Parser  Generator  (Ayacc) 

Ayacc  [TTS88]  generates  a  parser  from  an  input  of  BNF  style  specification 
grammar,  accompanied  by  a  set  of  Ada  program  fragments  called  actions  to  be  executed  as 
each  grammar  rule  is  recognized.The  generated  output  is  a  set  of  Ada  program  units  that 
act  as  a  parser  for  the  input  grammar. 
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The  main  parser  procedure  yyparse  makes  a  call  to  lexical  analyzer  function 
yylex  to  get  an  input  token,  and  then  matches  the  grammar  rules  and  executes  the  actions 
associated  with  these  grammar  rules.  Ayacc  needs  a  specification  file  as  input  which  is  a 
collection  of  grammar  rules  and  actions  associated  with  them,  along  with  the  Ada 
subprograms  we  provided  to  be  used  in  the  semantic  actions.  The  input  specification  files 
provided  are  psdl.y  and  query. y  containing  the  rules  to  process  the  PSDL  specifications  of 
the  retrieved  component  and  query  respectively. 

Ayacc  generates  four  files,  three  auxiliary  packages  and  a  parser.  The  parsers 
generated  for  our  application  are  in  the  files  psdLa  and  query. a. 

b.  Lexical  Analyzer  (Aflex) 

Aflex  [Self90]  is  a  lexical  analyzer  generating  tool  written  in  Ada  designed 
for  lexical  processing  of  character  input  streams.  Aflex  accepts  high  level  rules  written  in 
regular  expressions  for  character  string  matching,  and  generates  Ada  source  code  for  a 
lexical  analyzer,  by  using  a  finite  state  machine  to  recognize  input  tokens.  Aflex  can  be 
used  alone  for  simple  lexical  analysis,  or  with  ayacc  to  generate  a  parser  front-end,  as  in 
our  application. 

Aflex  generates  a  file  containing  a  lexical  analyzer  function  (yylex)  along 
with  two  other  auxiliary  packages.  Lexical  analyzer  is  implemented  as  an  Ada  package  in 
this  application.  The  files  query  Jex.l,  for  retrieval  by  PSDL  query,  and  psdl  jex.l,  for  other 
retrieval  methods,  are  the  inputs  tq  aflex.  They  define  the  lexical  classes  and  the  regular 
expressions  used  in  the  PSDL  grammar.  Each  regular  expression  is  associated  with  an 
action  which  is  written  in  Ada  and  executed  when  the  regular  expression  is  matched.  The 
lexical  analyzer  function  yylex  returns  a  single  token  after  each  call,  made  by  the  parser 
procedure  yyparse  of  ayacc.  The  name  of  the  generated  file  is  psdl  jex.a. 

2.  Transformation  Process 

Retrieved  component  is  used  as  a  basis  for  the  creation  of  the  transformation 
module.  This  process  is  conducted  in  two  phase.  First,  the  PSDL  specification  of  the 
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retrieved  component  is  parsed  and  the  necessary  information  about  the  component  is  stored 
in  the  structures  supplied  in  the  auxiliary  package  component _aux j>kg.  This  information 
includes  the  name  of  the  component,  whether  the  component  is  a  type  or  operator,  generic 
parameters,  and  input/output  parameter  names  and  values.  If  the  component  is  a  type, 
information  related  to  each  operator  is  also  extracted  during  the  parsing  process. 

Second,  the  retrieval  method  is  evaluated  in  the  composition  phase.  If  retrieval 
process  is  accomplished  through  named  look  up  or  keyword  query,  the  creation  of  the 
transformation  module  is  conducted  by  using  the  information  extracted  from  the  PSDL 
specification  of  the  component  during  parsing.  This  process  is  analogous  to  the  use-as-is 
methodology.  Although  it  is  not  the  preferable  method  of  code  reuse,  it  can  still  be  utilized. 
Therefore,  we  included  an  integration  mechanism  for  these  kind  of  retrieval  and  reuse 
schemes  as  well.  Output  of  composer  is  the  transformation  module  containing  the 
implementation  that  incorporates  the  retrieved  component  as  is  through  Ada  with  statement 
and  renaming.  This  procedure  is  explained  in  detail  in  section  4.C.2.a. 

If  retrieval  of  the  component  is  accomplished  by  PSDL  query,  we  need  a  mapping 
mechanism.  For  this  purpose,  the  PSDL  query  is  also  parsed  and  similarly  the  information 
about  the  query  is  stored  in  a  separate  structure  supplied  by  the  auxiliary  package  called 
query _aux _pkg.  This  information  is  used  to  transform  the  component  name,  operator 
names  (if  component  is  a  type),  and  parameter  name  and  values  to  maintain  the  consistency 
in  the  system. 

Mapping  process  is  carri^  out  during  the  composition  of  the  transformation 
module  by  using  the  information  from  both  structure  packages,  namely 
component  aux j)kg  and  query _aux _pkg.  During  this  mapping  procedure  generic 
parameters  are  also  taken  into  consideration.  If  retrieved  component  is  generic,  the  value 
of  each  input  and  output  parameter  is  checked  against  the  generic  parameters.  This  issue  is 
addressed  in  section  4.C.2.b. 

The  resulting  transformation  module  is  implemented  as  a  package  and  saved  in 
the  prototype  directory.  Thus,  implementation  for  the  integration  of  each  retrieved 


30 


component  is  encapsulated  in  its  own  package.  The  file  this  package  is  written  into  is  called 
proto-prefix. atomic. a  where  atomic  stands  for  the  component  name.  The  details  about  the 
creation  of  the  transformation  module  is  in  the  following  two  sections. 

a.  Transformation  Module  for  The  Components  Retrieved  by  Browsing 
Keyword  query  and  named  look  up  of  components  are  two  methods  used  for 
reusable  component  retrieval.  None  of  these  methods  provide  the  specifications  required 
by  the  design  process.  Nevertheless,  we  should  provide  ways  to  integrate  a  component 
retrieved  by  these  methods  as  it  may  be  desirable  to  use  this  component  as  it  is.  In  this  case 
no  parameter  change  is  required.  We  need  to  generate  a  package  withed  to  the  retrieved 
component  and  rename  the  contained  procedures. 

For  this  process,  the  PSDL  specification  of  the  retrieved  component  is  used 
to  generate  the  transformation  module.  Figure  4.3  is  the  schema  for  the  creation  of 
transformation  module. 


Figure  4.3  -  Integration  process 


The  PSDL  specirication  of  the  retrieved  component  is  parsed  and  the  values 
to  construct  the  transformation  module  are  extracted.  These  values,  which  are  component 
name,  parameter  name  and  values  etc.,  are  then  used  to  construct  the  transformation 
module.  At  this  phase,  the  generic  parameter  values  should  also  be  supplied  to  perform  the 
instantiation  of  generic  components.  A  detailed  discussion  of  generic  instantiation  can  be 
found  in  section  4.C.3. 
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After  this  process,  an  Ada  package  containing  the  transformation  module  is 
created  and  written  in  the  proto-prefix. atomic. a  file  by  utilizing  the  package 
component  compose j)kg.  Resulting  package  is  saved  in  the  prototyping  directory. 

An  example  template  about  the  contents  of  the  generated  package  can  be  seen 
in  Figure  4.4.  ADTs  and  procedures  (corresponding  types  and  operators  in  PSDL 
specification)  are  both  incorporated  the  same  way. 

proto-prefix.retrieved_component.a 

with  retrieved_component; 
package  retrieved_component_pkg  is 
--if  generic 

package  tmp_retrieved_coniponent_pkg  is  new 

retrieved_component  ( -parameters- ); 
procedure  pi  ( -parameters- )  renames  tmp_retrieved_component_pkg.pl: 
procedure  p2  ( -parameters- )  renames  tmp_retrieved_component_pkg.p2: 
end  retrieved_component_pkg; 


Figure  4.4  -  Generated  package  of  transformation  module 

b.  Transformation  Module  for  The  Components  Retrieved  by  Query 

Designer  will  create  a  PSDL  specification,  which  will  describe  the  properties 
of  the  desired  component,  during  the  prototyping  process  and  will  use  this  specification  to 
query  the  software  base  to  find  a  matching  component.  If  there  is  any  matching  component 
in  the  software  base,  the  retrieval  will  be  successful  and  a  list  of  retrieved  components  (one 
or  more)  will  be  available.  Then  the  designer  will  choose  the  component  which  best  suits 
to  his  or  her  design  and  will  integrate  that  component  into  his/her  system. 
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The  PSDL  query  contains  the  specific  information  about  the  required 
component  such  as  the  desired  component  name,  parameter  name  and  values,  procedure 
names  etc.  Although  the  retrieved  component  satisfies  the  query,  it  will  probably  have 
different  component  name,  parameter  name  and  values,  and  may  even  be  generic.  In  this 
case  we  need  to  transform  these  values  and  names,  and  instantiate  the  component  if  it  is 
generic. 

Integrating  such  a  component  requires  a  mapping  schema.  The  names  and 
values  of  the  retrieved  component  should  be  mapped  to  those  of  the  names  and  values  of 
the  query.  This  process  is  accomplished  by  the  integration  tool  and  the  resulting 
transformation  module  contains  the  implementation  consistent  with  the  query.  Figure  4.5 
gives  the  top  view  of  the  schema  to  perform  this  operation. 


Figure  4.5  -  Integration  Process 

The  PSDL  of  the  retrieved  component  and  query  PSDL  are  parsed  and 
portions  of  relevant  information  is  stored  in  respective  structures.  During  the  composing 
operation  the  retrieved  component  is  with’ed  to  the  transformation  module.  If  the  retrieved 
component  is  generic,  it  is  instantiated  with  the  generic  values  supplied.  Then,  depending 
on  whether  the  retrieved  component  is  operator  or  type,  each  procedure  is  renamed 
according  to  the  procedure  and  input/output  parameter  names  in  the  query  PSDL. 
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Meanwhile,  each  input/output  parameter  value  is  also  checked  to  determine  whether  it  is 
generic. 

After  this  procedure  is  carried  out,  the  implementation  is  consistent  with  the 
PSDL  query.  The  transformed  representation  of  the  retrieved  component  is  then  saved  into 
the  prototyping  directory  and  it  is  ready  to  be  used  in  the  prototype.  The  name  of  the  file 
the  implementation  is  saved  in  is  proto-pr^x.atomic.a,  where  atomic  stands  for  the  desired 
component  name  specified  in  the  PSDL  query  file.  Figure  4.6  is  an  example  output  for  the 
transformation  module,  query  component  stands  for  the  name  of  the  component  specified 
in  the  PSDL  query. 

proto-prefix.query_component.a 

with  retrieved_component; 
package  query_component_pkg  is 
--if  generic 

package  tmp_query_component_pkg  is  new  retrieved.coniponenU-paraineters-); 
procedure  query_pl  (-parameters-)  renames  tmp_query_component_pkgjetrieved_pl; 
procedure  query_p2  (-parameters-)  renames  tmp_query_component_pkgjetrieved_p2; 
end  query_component_pkg; 

Figure  4.6  •  Generated  package  of  transformation  module 

One  problem  that  may  be  encountered  during  this  process  is  the  retrieved  and 
query  (desired)  component  names  being  the  same.  In  this  case  renaming  the  retrieved 
component  with  the  same  name  will  cause  an  error  with  respect  to  Ada  rules.  To  prevent 
this  problem  a  certain  naming  convention  must  be  applied. 
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One  solution  is  appending  a  suffix  to  the  component  name  given  in  the  PSDL 
query,  but  this  will  also  require  a  change  in  the  PSDL  query  to  maintain  the  consistency 
between  the  query  and  implementation.  A  better  solution  is  to  store  every  component  in  the 
software  base  with  a  known  suffix.  Thus,  their  corresponding  PSDL  specifications  will  be 
consistent  and  will  require  no  further  modification.  The  suffix  used  in  this  implementation 
is  _sb,  i.e.  the  name  of  a  sort  procedure  stored  in  software  base  will  be  sort  sb. 

A  detailed  example  of  integration  process  is  given  in  Appendix  A. 

3.  Generic  Instantiation 

In  case  the  retrieved  component  has  generic  parameters,  instantiation  of  the 
component  during  the  transformation  process  should  take  place.  There  are  a  few  aspects 
that  should  be  taken  into  consideration  during  this  process. 

First,  we  need  to  be  able  to  instantiate  the  generic  components  retrieved  by  named 
look  up  or  keyword  query.  In  this  case,  the  generic  values  are  not  available  to  the  software 
base.  Generic  parameter  values  should  be  supplied  by  user. 

If  retrieval  is  accomplished  through  PSDL  query,  the  query  may  contain  some  or 
all  of  the  generic  parameter  values.  The  challenge  here  is  to  match  the  generic  parameters 
with  the  correct  values  supplied  by  the  query.  For  example,  if  two  generic  parameters  exist 
in  the  retrieved  component  and  two  values  are  supplied  by  the  query  PSDL,  during 
instantiation  correct  values  should  be  used  for  the  corresponding  appropriate  parameter. 
This  situation  is  worsened  if  the  supplied  values  by  the  query  PSDL  are  user  defined  type. 
In  this  case  a  chain  mapping  of  generic  parameter  values  will  be  required.  These  user 
defined  types  may  even  be  defined  in  another  PSDL  specification  as  this  is  a  common 
practice  in  Ada  programming  where  type  definitions  are  generally  encapsulated  in  a 
separate  package.  In  this  case  the  required  PSDL  file  should  be  searched  and  appropriate 
generic  values  should  be  extracted  from  this  file. 
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Considering  the  difficulties  of  such  an  implementation,  an  alternative  way  may  be 
to  redefine  the  user  defined  types  in  the  query  PSDL  and/or  to  modify  the  query  such  that 
all  generic  values  can  be  extracted  and  matched  to  the  generic  parameters. 

In  this  implementation  the  transformation  module  generates  the  template  for  the 
instantiation  of  the  generic  parameters  and  a  message  is  displayed  to  the  user  to  request  the 
generic  parameter  values. 


V.  GRAPHICAL  USER  INTERFACE  FOR  SOFTWARE  BASE 


The  software  base  graphical  user  interface  (GUI)  is  designed  to  demonstrate  and 
manipulate  the  capabilities  of  the  software  base  as  efficiently  as  possible  by  applying 
generally  accepted  user  interface  design  principles.  This  chapter  outlines  the  software  base 
graphical  user  interface  design  decisions.  Appendix  B  is  the  user’s  manual,  and  Appendix 
D  contains  the  source  code  for  the  software  base  graphical  user  interface. 

A.  DESIGN  PRINCIPLES 

The  key  goals  of  a  user  interface  design  are  to  make  the  system  easy  to  learn  and  use, 
to  reduce  the  error  rate,  and  to  be  intuitive  to  the  user.  This  requires  a  user  interface  to  be 
consistent,  provide  feedback,  minimize  error  possibilities  and  provide  error  recovery, 
accommodate  multiple  skill  levels,  and  minimize  memorization. 

To  satisfy  all  these  goals  is  not  easy  in  practice,  and  requires  a  through  analysis  of  both 
the  potential  users  and  the  required  functionality  of  the  underlying  system. 

I.  Users 

a.  Assumptions 

The  CAPS  users  are  expected  to  be  a  large  spectrum  of  people,  a  user  can  be 
a  novice  student  or  a  highly  skilled  software  engineer. 

All  users  are  assumed  to  be  accustomed  to  graphical  windowing 
environment.  They  are  considered  t6  know  the  basic  skills  such  as  using  a  mouse,  working 
with  pull-down  menus  or  push  buttons,  etc. 

The  user  is  assumed  to  have  a  basic  knowledge  of  PSDL  specification 
language  and  its  functionality  in  the  CAPS.  He/she  is  not  expected  to  be  an  expert. 

The  user  is  assumed  to  be  familiar  with  the  implementation  language  he  is 
working  on.  Currently  all  operator  and  types  are  implemented  in  Ada. 
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b.  Requirements 

Considering  the  assumptions  about  the  user  and  preferred  design  decisions, 
an  efficient  user  interface  should  satisfy  these  basic  requirements  for  user: 

•  Must  be  suitable  for  a  wide  range  of  users  from  novice  to  expert. 

•  Must  be  easy  to  learn  and  use,  should  require  no  user  manual  for  operation. 

•  Must  use  a  graphical,  mouse  driven  interface. 

•  Must  provide  on-line  help. 

•  Must  show  user  only  relevant  information  and  steps. 

•  Must  display  only  one  panel/menu  item  at  a  time. 

•  Must  provide  feedback  to  the  user. 

•  Must  give  warnings  if  a  destructive  action  is  going  to  take  place. 

2.  System 

Since  CAPS  is  an  ongoing  project  at  the  Naval  Postgraduate  School,  underlying 
system  requirements  are  easy  to  determine.  The  Software  base  GUI: 

•  Must  run  on  Sun  or  compatible  workstations  under  Unix  operating  system. 

•  Must  run  under  X-Windows  for  portability. 

B.  IMPLEMENTATION  CONSIDERATIONS 

The  previous  version  of  software  base  user  interface  was  written  using  Stanford’s 

Interviews  toolkit  (version  2.6)  as  a  prototype.  Interviews  makes  extensive  use  of  C++ 

1 

features  such  as  inheritance  and  provides  a  number  of  predefined  objects,  including  push¬ 
buttons,  scrollbars,  file  management  dialog  boxes  and  text  editors.  Although  it  was  a  good 
candidate  to  implement  this  complete  version  of  software  base  graphical  user  interface,  the 
goal  of  CAPS  is  to  implement  the  system  tools  in  Ada  as  much  as  possible.  Currently,  the 
only  existing  tool  that  can  be  used  in  user  interface  design  making  use  of  Ada  is 
Transportable  Applications  Environment  (TAE)  [Nasa91].  This  aspect  of  TAE  as  well  as 
the  other  qualifications  described  in  the  following  section,  has  played  a  key  role  to  choose 
the  TAE  as  the  toolkit  to  implement  the  software  base  graphical  user  interface. 
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1.  Transportable  Applications  Environment  (TAE) 

a.  Introduction 

The  software  base  graphical  user  interface  is  implemented  by  using 
Transportable  Applications  Environment  (TAE)  Plus,  an  integrated  environment  for 
developing  and  running  contemporary  window  and  graphics  based  application  systems. 
TAE  Plus  is  a  portable  software  development  environment  that  supports  rapid  building, 
tailoring,  and  management  of  graphic-oriented  user  interfaces.  It  provides  a  suite  of 
integrated  tools  and  software  libraries  for  developing  and  running  highly  interactive, 
graphical  application  systems. 

b.  Environment 

TAE  Plus  utilizes  X  window  system.  Version  11,  Release  4,  and  the  Open 
Software  Foundation’s  Motif  Toolkit,  Version  1.1.1.  Interviews  2.6  is  also  bundled  with 
TAE  Plus. 

Figure  5. 1  illustrates  the  relationship  between  a  TAE  Plus  application  and  the 
XI I  software. 
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The  application  primarily  calls  Wpt  functions.  The  Wpt  package  is  layered  on 
top  of  the  Motif  Toolkit,  which  interfaces  with  the  X  Window  System.  Motif  Toolkit 
provides  various  high  level  interface  objects  called  “widgets”.  X  Toolkit  is  based  on  Xlib, 
which  provides  useful  set  of  graphics  primitives. 

While  the  Wpt  routines  provide  a  convenient  buffer  between  an  application 
and  the  complexities  of  X 1 1  and  the  X  Toolkit,  an  application  is  free  to  access  the  X  Toolkit 
and  Xlib  directly. 

TAE  Plus  is  portable  across  a  wide  range  of  computing  platforms  using  either 
UNIX  or  VAXA^MS  operating  systems,  and  is  capable  of  generating  code  in  C,  Fortran, 
and  Ada. 

c.  Advantages 

•  Sophisticated  GUIs  can  be  built  in  less  time. 

•  Easy  to  use. 

•  Flexible  and  modular,  changes  can  be  made  locally  without  effecting  the 
other  parts  of  the  system. 

•  Portable,  it  can  be  utilized  on  many  different  computing  environments. 

•  Reusable,  interaction  objects  and  panels  can  be  reused  and  shared  avoiding 
the  duplication  of  the  effort. 

•  Consistent,  it  provides  interfaces  that  have  a  common  look  and  feel  across 
different  applications  and  environments. 

•  Possibility  of  implementation  in  different  languages. 

C.  SOFTWARE  BASE  GUI  ARCHITECTURE 

The  software  base  GUI  is  designed  to  manipulate  software  base  operations  through  a 
series  of  user  interactive  panels.  These  operations  can  be  classified  into  three  category: 

(i)  library  operations, 

(ii)  retrieval  operations,  and 

(iii)  manipulation  operations. 
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The  software  base  GUI  can  be  started  by  executing  the  command  softbase.exe,  by 
passing  two  command  line  arguments.  First  argument  is  the  path  to  the  prototype  directory 
and  the  second  argument  is  the  prototype  prefix,  which  is  required  by  the  software  base 
script  for  compilation.  The  argument  prototype-directory-path  specifies  the  current 
prototype  directory  where  the  design  process  is  carried  out.  The  retrieved  component  and 
the  integration  package  are  saved  in  this  directory  as  default.  This  path  can  also  be  entered 
as  an  environment  variable  (for  example,  SPROTOTYPE).  The  argument  prototype -prefix 
is  added  to  the  beginning  of  the  names  of  each  saved  file.  This  prefix  is  used  in  software 
base  script  to  group  each  compilation  unit. 

Due  to  the  current  equipment  setup  in  CAPS  lab,  it  is  necessary  to  invoke  the  software 
base  on  sunSl,  since  Ontos  libraries  is  on  sunSl. 

Online  help  is  provided  for  all  major  software  base  operations.  Various  warning  and 
error  messages  are  also  included  to  help  the  user. 

1.  Library  Operations 

The  panel  for  library  functions  is  the  top  level  of  the  software  base  GUI  system. 
It  provides  selection,  addition,  and  deletion  operations  to  be  performed  on  software  base 
libraries. 

If  the  creation  of  a  new  library  is  required,  library  addition  panel  provides  input 
for  the  name  of  the  new  library  and  the  rule  file  to  be  used.  This  operation  allows  one  to 
create  new  libraries  (for  example  C++,  Adal,  Ada2,  etc.). 

Library  deletion  panel  is  used  to  remove  an  existing  library  and  all  of  the 
components  of  that  library.  Library  addition  and  deletion  operations  are  accessible  only  by 
the  authorized  personnel  (root). 

Library  selection  option  is  provided  for  the  user  to  perform  his/her  operations  on 
the  desired  library.  After  selecting  the  library  name,  the  rest  of  the  operations  are  performed 
on  that  particular  library. 
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2.  Retrieval  Operations 

After  the  desired  library  is  selected,  a  main  menu  panel  provides  access  to  various 
retrieval  operations.  This  panel  also  provides  the  option  of  component  addition  to  the 
chosen  library. 

The  main  menu  panel  provides  options  to  conduct  a  PSDL  or  keyword  query.  A 
PSDL  query  file  can  be  selected  by  browsing  through  the  directories  and  it  is  used  to 
perform  the  query.  For  keyword  query,  available  keywords  are  displayed  and  the  user  can 
select  as  many  keywords  as  he/she  desires  to  conduct  the  query.  The  result  of  the  queries  is 
displayed  in  a  separate  panel  and  the  user  may  select  the  most  suitable  component  to  suit 
his/her  needs. 

This  panel  also  provides  the  named  look  up  of  components  under  two  categories: 
operators  and  types.  User  can  choose  a  component  by  browsing  through  the  existing 
components  although  this  would  not  be  an  efficient  way  of  retrieval  if  that  library  contains 
a  large  number  of  components. 

3.  Manipulation  Operations 

Following  the  retrieval  of  a  component,  various  operations  can  be  performed  for 
further  manipulation.  One  of  the  operations  is  to  view  the  files  stored  in  the  software  base. 
These  files  are  the  PSDL  specification,  the  implementation  specification,  and  the 
implementation  body  files. 

Other  available  operations  are  to  delete  the  selected  component  from  the  software 
base,  to  save  the  component  to  the  workplace,  to  print  the  specification  and  implementation 
files  of  the  component,  and  to  integrate  the  component  into  the  system  under  development. 

D.  CONCLUSIONS 

TAE  Plus  is  an  efficient  tool  to  design  and  implement  sophisticated  graphical  user 
interfaces.  It  is  also  suitable  for  hardware  platforms  that  CAPS  runs.  User  interfaces 
consistent  with  the  other  CAPS  tools  user  interfaces  can  easily  be  developed  by  using  TAE 
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Plus.  That  Ada  is  one  of  the  implementation  languages  of  this  tool  is  also  suitable,  given 
that  one  of  the  major  goals  is  to  implement  the  whole  CAPS  in  Ada. 

Evaluating  these  benefits  of  TAE  Plus,  the  decision  is  made  to  use  this  tool  to 
implement  the  software  base  graphical  user  interface.  The  developed  interface  is  a  mouse 
driven,  easy  to  use  graphical  user  interface  which  is  consistent  with  the  requirements  given 
in  section  5.  A.  On-line  help  facilities  are  also  included,  although  it  is  pretty  straight  forward 
to  use  the  system.  Various  panels  for  information,  warning  and  error  messages  are  also 
included. 

The  software  base  graphical  user  interface  user’s  manual  is  given  in  Appendix  B, 
explaining  the  details  of  the  developed  system. 
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VI.  CONCLUSIONS  AND  FUTURE  RESEARCH 


A.  ACCOMPLISHMENTS 

Three  basic  tasks  are  accomplished  in  this  thesis  to  enhance  the  software  reuse  within 
the  CAPS. 

First,  the  software  base  system  first  described  in  [McDo91]  was  revised  and  modified 
to  accommodate  the  requirements  of  current  CAPS  system.  Major  changes  made  were  in 
parser  and  keyword  query  modules.  Parser  was  modified  according  to  the  requirements  of 
current  PSDL  specification  rules.  Keyword  query  module  was  changed  to  allow  multiple 
keywords  to  be  used  as  search  keys. 

Second,  an  integration  mechanism  has  been  designed  and  implemented  to  incorporate 
the  retrieved  components  into  CAPS.  An  integration  module  is  created  and  saved  to  the 
workplace  for  every  retrieved  component.  All  referencing,  renaming,  and  instantiation 
processes  are  encapsulated  in  this  module  according  to  the  requirements  of  the  prototyped 
system. 

Third,  a  complete  graphical  user  interface  has  been  designed  and  implemented  to 
demonstrate  and  manipulate  the  capabilities  of  the  software  base.  All  software  base 
operations  such  as  search,  retrieval,  and  integration  can  be  performed  through  the  software 
base  GUI. 

There  are  still  many  areas  that  can  be  improved  by  future  research.  The  following 
section  describes  those  areas  and  provides  recommendations  that  may  help  solve  some  of 
the  problems. 

B.  FUTURE  WORK 

1.  Providing  Components  For  Software  Base 

The  components  to  be  added  to  the  software  base  must  be  thoroughly  tested  to 
ensure  that  they  meet  their  specifications.  Testing  of  software  components  is  still  a 
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challenging  area  and  requires  further  research.  This  is  necessary  in  order  to  make  reusable 
software  libraries  more  successful. 

The  components  that  should  be  incorporated  to  the  CAPS  software  base  must  be 
specified  in  PSDL.  A  study  for  the  automation  of  this  process  can  be  found  in  [Seal92]. 
Application  of  this  study  to  some  of  the  existing  software  sources  such  as  Booch  library, 
RAPID  project,  and  Ada  software  repository  should  provide  plenty  of  good  quality 
software  components  to  be  utilized  by  the  software  base. 

2.  Integrating  Generic  Components 

Currently,  the  generic  parameter  values  of  an  integrated  component  is  supplied  by 
user.  This  process  can  be  automated  by  including  an  internal  matching/mapping 
mechanism  to  the  software  base.  One  example  of  this  process  is  the  employment  of  OBJ3 
specification  in  [Stei91].  Other  mechanisms  may  be  developed  that  perform  the  mapping 
of  these  parameters  and  matching  them  with  the  provided  values  for  generic  instantiation. 

3.  Ensuring  Consistency 

Updating  and  deleting  components  from  the  software  base  may  cause  system 
inconsistencies.  These  inconsistencies  may  result  from  the  interdependencies  of  the 
components  in  the  software  base  or  from  the  dependency  of  the  previously  developed 
prototypes  to  the  retrieved  components  from  the  software  base.  Currently,  software  base 
administrator  manages  the  consistency  of  the  system.  This  process  can  be  automated  by 
utilizing  a  version  control  schema. 

4.  Seperate  GUI  For  User  And  Administrator 

The  software  base  GUI  designed  and  implemented  in  this  thesis  demonstrates  the 
full  functionality  of  the  CAPS  software  base.  However,  an  ordinary  user  will  not  need  such 
functions  of  software  base  as  adding  and  deleting  software  libraries  and  components, 
updating  existing  components,  etc.  While  this  detailed  software  base  interface  is  utilized  by 
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system  administrator,  a  simpler  interface  may  be  designed,  emphasizing  only  those  aspects 
of  software  base  which  will  be  frequently  used  by  users. 
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APPENDIX  A  -  INTEGRATION  EXAMPLES 


In  this  appendix  various  examples  of  integration  of  components  are  given.  The 
component  chosen  as  an  example  is  the  partial  implementation  of  a  set  ADT.  Two  operators 
are  included  in  it  and  two  versions  of  the  same  component  is  provided  :  generic  and  non¬ 
generic. 

A.  INTEGRATING  A  COMPONENT  RETRIEVED  BY  NAMED  LOOKUP 
5.  Retrieving  a  Non-generic  Component 

a.  PSDL  Specification  of  Retrieved  Component 


type  set 
specification 

operator  empty 
specification 
input  si: set 
output  s:set 
end 

operator  add 
specification 
input  x:t,  , 
si : set 
output  SO: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  set_sb  end 
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b.  Proto.seLa 


with  set_sb; 


package  set_pkg  is 

procedure  empty  (  si  :  in  set; 

s  :  out  set  ) 
renames  set_sb . empty ; 

procedure  add  (  x  :  in  t; 

si:  in  set; 
so:  out  set  ) 
renames  set_sb.add; 


end  set_pkg; 


6.  Retrieving  a  Generic  Component 

a.  PSDL  Specification  of  Retrieved  Component 

type  set 

specification 

generic 

t :GENERIC_TYPE, 

operator  empty 
specification 
output  s:set 
end 

operator  add 
specification 
input  x:t, 
si :set 
output  so: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  set_sb  end 
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b.  Proto.seUa 


with  set_sb; 
package  set_pkg  is 

package  tmp_set_pkg  is  new  set_sb  (  gen_p  ) 

procedure  empty  (  s  :  out  set  ) 
renames  tmp_s et_pkg. empty ; 

procedure  add  (  x  :  in  gen_p; 

si  :  in  set; 
so  :  out  set  ) 
renames  tmp_set_pkg.add; 

end  set_pkg; 


B.  INTEGRATING  A  COMPONENT  RETRIEVED  BY  PSDL  QUERY 
1.  Retrieving  a  Non>generic  Component 

a.  PSDL  Specification  of  Retrieved  Component 

type  set 
specification 

operator  empty 
specification 
input  si: set 
output  s:set 
end 

operator  add 
specification 

input  x: integer, 
si :set 
output  SO: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  set_sb  end 
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b.  PSDL  Query 


type  integer_set 
specification 

operator  create 
specification 

input  in_set  :sec 
output  out_set  :set 
end 

operator  put 
specification 

input  item  : integer, 
in_set  :sec 
output  out_set:set 
end 
end 

implementation  ada  integer_set  end 


c.  ProtoAntegerjseta 

with  set_sb; 

package  integer_set_pkg  is 


procedure  create  {  inset  :  in  set; 

out_set  :  out  set  ) 
renames  set_sb . empty ; 

procedure  put  (  item  :  in  integer; 

in_set  :  in  set; 
out_set :  out  set  ) 
renames  set_sb.add; 


end  integer_set_pkg; 
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2.  Retrieving  a  Generic  Component 

a.  PSDL  Specification  of  Retrieved  Component 

type  set 

specification 

generic 

t :GENERIC_TYPE, 

operator  empty 
specification 
output  s:set 
end 

operator  add 
specification 
input  x:t, 
si : set 
output  SO: set 
end 

keywords  set 
description  {  set  }  end 
implementation  ada  sec_sb  end 

b.  PSDL  Query 

type  int_set 
specification 

operator  create 
specification 

input  in_set  :set 
output  out_set  :set 
end 

operator  put 
specification 

input  item  : integer, 
in_set  :set 
output  out_set:set 
end 
end 

implementation  ada  int_set  end 
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c.  Proto. int  seta 


with  set_sb; 
package  int_set_pkg  is 

package  tmp_int_set_pkg  is  new  set_sb ( integer ) ; 

procedure  create  (  inset  :  in  set; 

out_set  :  out  set  ) 
renames  tmp_int_set_pkg. empty ; 

procedure  put  (  item  :  in  integer; 

in_set  :  in  set; 
out_set :  out  set  ) 
renames  tmp_int_set_pkg . add; 

end  int_set_pkg; 
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APPENDIX  B  -  SOFTWARE  BASE 
GRAPHICAL  USER  INTERFACE  USER’S  MANUAL 


The  software  base  graphical  user  interface  is  implemented  by  using  Transportable 
Applications  Environment  (TAE)  Plus,  an  integrated  environment  for  developing  and 
running  contemporary  window  and  graphics  based  application  systems. 

The  Software  base  GUI  can  be  started  by  executing  the  command  softbase.exe,  by 
passing  two  command  line  parameters.  First  parameter  is  the  path  to  the  prototype  directory 
and  the  second  parameter  is  the  prototype  prefix,  which  is  required  by  the  software  base 
script  for  compilation.  Because  of  the  required  environment  variables,  it  should  be  invoked 
while  working  on  sun5 1  or  rxterm’ed  to  sun5 1 .  This  requirement  is  due  to  the  current  Ontos 
libraries  being  on  sunSl. 

The  terminology  used  in  this  appendix  is  consistent  with  TAE  Plus  documentation. 

A.  LIBRARY  FUNCTIONS 

Library  functions  panel  is  the  top  level  of  the  software  base  GUI  system.  It  provides 
three  kinds  of  functionality:  Library  Operations,  Quit,  and  Help. 


1 

Libraiy  Openitioiu  : 

O  Libraiy  Selection 

i  Quit 

^ . 

^  labraiy  Addition 

^  Libnixy  Deletion 

1  Help 

Figure  B.l  -  Library  Functions  Panel 
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Library  Operations  option  provides  three  choices  which  are  Library  Selection,  i.e. 
selecting  the  library  that  is  going  to  be  used  throughout  the  software  base  manipulations 
(Adal,  Ada2,  C++,  etc.).  Library  Addition,  in  case  creation  of  a  new  library  is  desired,  and 
Library  Deletion,  if  the  deletion  of  an  existing  library  from  the  software  base  is  desired. 


Figure  B.2  -  Library  Functions  Panel  Connections 
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Library  Selection  panel  displays  the  existing  libraries  in  the  software  base.  Clicking 
one  of  the  libraries,  for  example  Ada,  results  in  all  the  operations  to  be  performed  on  that 
particular  library.  It  can  be  considered  as  a  library  domain  selector.  After  clicking  on  the 
OK  button.  Main  Menu  panel  is  displayed  to  perform  further  software  base  operations. 

Library  Addition  panel  is  provided  to  add  new  library  domains  into  the  software  base. 
User  keys  in  the  new  library  name  and  the  associated  rule  file  name.  Upon  clicking  on  the 
OK  button  a  new  library  is  created  and  displayed  in  the  library  selection  panel.  This  option 
is  provided  only  for  the  authorized  personnel  (root). 

Library  Deletion  panel  is  used  to  delete  a  library  from  the  software  base.  This  panel 
displays  the  existing  library  list.  Selecting  one  of  the  libraries  and  clicking  on  OK  button 
brings  a  warning  message.  Validating  the  operation  deletes  the  selected  library  and  all  of 
the  components  in  that  library  from  the  software  base.  This  option  is  provided  only  for  the 
authorized  personnel  (root). 

Quit  button  terminates  the  software  base  GUI. 

Clicking  on  Help  button  changes  the  mouse  cursor  into  a  *?’  mark.  Clicking  the  cursor 
on  the  desired  item  displays  a  help  window  about  that  item.  For  example,  clicking  on 
Library  Operations  brings  a  help  window  informing  about  the  functionality  of  each 
operation. 

B.  MAIN  MENU 

Main  Menu  panel  provides  the  basic  operations  of  software  base. 
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These  operations,  implemented  as  pull  down  menu,  include  Component  Add/Update, 
Browse  Types! Operators,  and  KeywordIPSDL  Query. 

7.  Component  Add/Update 

Clicking  on  Component  Add/Update  brings  the  Input  Fite  Selection  panel. 


Figure  B.4  -  Input  File  Selection  Panel 


Inputs  to  the  software  base  are  made  up  of  three  text  files.  The  PSDL 
specification,  the  implementation  specification,  and  the  implementation  body.  This  panel 
allows  the  selection  of  each  of  these  files. 

The  directory  box  displays  the  files  and  subdirectories  in  the  current  working 
directory.  Under  this  box,  the  directory  label  displays  the  name  of  the  current  directory. 
Clicking  on  a  directory  in  directory  box  will  change  to  that  directory  and  the  path  for  the 
new  directory  will  be  displayed  in  the  directory  label.  Clicking  on  a  file  will  select  that  file 
and  the  selected  file  will  be  displayed  in  the  file  label  box.  After  all  the  files  are  selected, 
clicking  on  OK  button  will  cause  the  input  files  to  be  processed. 

If  Component  Add  operation  is  invoked,  the  system  will  attempt  to  add  the 
component  to  the  software  base.  In  case  of  an  error,  an  error  message  will  be  displayed. 
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Otherwise,  the  panel  will  be  removed  and  Main  Menu  panel  will  be  displayed  indicating  a 
successful  addition. 

If  Component  Update  operation  is  invoked,  the  new  PSDL  specification  and 
implementation  files  will  replace  those  that  are  currently  in  the  software  base. 

Cancel  button  will  cause  the  input  operation  to  terminate. 


8.  Browse  Types/Operators 

Clicking  on  Browse  Type s! Operators  brings  the  Component  Selection  panel. 


Figure  B.5  -  Component  Selection  Panel 


Depending  on  the  selection,  this  panel  displays  a  list  of  all  the  operator  or  type 
components  in  the  software  base  and  a  one  line  description  of  each  component.  These 
components  are  ordered  alphabetically. 

Selecting  a  component  and  clicking  on  View  button  will  bring  up  a  view  of  that 
components  PSDL  specification.  See  section  B.C  for  details  on  using  View  panel. 

Selecting  a  component  and  clicking  on  Select  button  will  bring  up  a  menu  of  more 
detailed  operations  on  the  selected  component.  See  section  B.D  for  details  about  this 
option. 

Cancel  button  will  cause  the  panel  to  disappear  and  brings  up  the  Main  Menu 

panel. 
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9. 


Keyword/PSDL  Query 


a.  Keyword  Query 

Clicking  on  keyword  query  brings  up  the  Keyword  Selection  panel. 


.d _ sss _ LJ 

Keyword  Selection  Menu 


K«3rwof^  Av«llabl«  Kuywowto  SuIccImI 


Figure  B.6  -  Keyword  Selection  panel 


This  panel  allows  the  selection  of  keywords  for  a  keyword  search  of  the 
software  base.  Existing  keywords  in  the  software  base  are  listed  in  the  left  box.  Clicking  on 
a  keyword  will  add  it  to  the  Keyword  Selected  box.  Once  the  desired  keywords  are  selected, 
pushing  the  OK  button  will  start  the  search.  The  resulting  list  of  the  components  found  in 
software  base  will  be  displayed  in  the  Component  Selection  panel  (See  B.B.2). 

Pushing  the  cancel  button  will  terminate  the  keyword  query. 

b.  PSDL  Query 

Clicking  on  PSDL  query  will  bring  up  the  Query  File  Selection  panel. 

Input  to  the  software  base  is  a  PSDL  specification  file  to  conduct  the  query. 
This  panel  allows  the  selection  of  PSDL  file.  The  directory  box  displays  the  files  and 
subdirectories  in  the  current  working  directory.  Under  this  box,  the  directory  label  displays 
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the  name  of  the  current  directory.  Clicking  on  a  directory  in  directory  box  will  change  to 
that  directory  and  the  path  for  the  new  directory  will  be  displayed  in  the  directory  label. 
Clicking  on  a  PSDL  file  will  select  that  file  and  the  selected  file  will  be  displayed  in  the  file 
label  box.  After  the  query  PSDL  file  is  selected,  clicking  on  OK  button  will  cause  the  query 
to  be  processed.  If  any  components  were  found  that  match  the  query  specification  then  the 
Component  Selection  panel  (See  B.B.2)  will  be  displayed  providing  a  list  of  matching 
components.  Otherwise,  a  message  will  be  displayed  stating  that  no  component  is  found. 


Figure  B.7  -  Query  File  Selection  Panel 


C.  VIEW  COMPONENT 

After  a  component  is  selected  from  Component  Selection  panel,  one  of  the  operations 
that  can  be  performed  on  the  component  is  to  view  the  files  stored  in  the  software  base. 
These  files  are  the  PSDL  specification,  the  implementation  specification,  and  the 
implementation  body  files. 

Clicking  on  View  button  on  the  Component  Selection  panel  brings  up  the  PSDL 
Specification  Viewing  panel.  If  no  component  is  selected  a  warning  message  is  displayed. 
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Viewing 


C«ae«l  :VlMr^«e 


Figure  B.8  •  PSDL  Specification  Viewing  Panel 

This  panel  displays  the  PSDL  specification  tor  a  given  component.  The  name  of  the 
file  displayed  appears  on  the  top  of  the  display  box. 

By  clicking  on  the  View  Spec  button,  implementation  specification  of  the  selected 
component  can  be  viewed  in  a  similar  fashion,  and  consequently  the  implementation  body 
file.  Because  the  viewing  panels  are  not  removed,  all  three  files  can  be  viewed 
simultaneously.  To  remove  the  panels.  Cancel  buttons  should  be  pushed. 

As  implementation  specification  and  implementation  body  view  panels  are  very 
similar  to  this  panel,  they  are  not  included  in  the  figures. 

D.  SELECT  COMPONENT 

Clicking  on  Select  button  on  the  Component  Selection  panel  brings  up  the  Select  panel. 
If  no  component  is  selected  a  warning  message  is  displayed. 
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Figure  B.9  -  Select  Panel 

This  panel  enables  user  to  pertomi  vanous  operations  on  the  selected  component. 
Clicking  on  Delete  button  causes  the  component  to  be  deleted  from  the  software  base 
after  displaying  a  warning  message. 

Clicking  on  Save  as  button  brings  up  the  Save  Component  panel. 


Figure  B.IO  -  Save  Component  Panel 


This  panel  enables  the  user  to  save  the  selected  component  in  any  workplace.  All  three 
files,  PSDL  specification,  implementation  specification  and  implementation  body  files,  are 
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saved  into  the  specified  directory.  Default  is  the  prototype  directory  and  path  to  this 
directory  is  obtained  from  the  first  argument  of  user  interface  executable. 

Clicking  on  Print  button  displays  three  options:  printing  the  PSDL  file,  printing  the 
implementation  specification,  or  printing  the  implementation  body.  Selected  files  are 
printed  through  the  default  printer. 

Clicking  on  Cancel  button  terminates  the  panel. 

Clicking  on  Help  button  changes  the  mouse  cursor  into  a  ‘?’  mark.  Clicking  the  cursor 
on  the  desired  item  displays  a  help  window  about  that  item. 

Integrate  button  is  used  to  incorporate  the  selected  component  into  the  system. 
Pushing  this  button  brings  up  the  Integration  panel.  The  integrate  button  of  this  panel 
causes  the  integration  tool  to  be  enabled  and  resulting  integration  module  (the  package  the 
code  is  encapsulated)  is  saved  into  the  prototyping  directory  together  with  the  retrieved 
component.  Depending  on  the  retrieved  component  being  generic  or  non-generic,  an 
information  message  is  displayed  in  the  box. 

FU«  Nm  ;  proto 

- .p 

:  A  .  ^ 

:  I 

:  I 
:  I 
^  I 


ClBXl 

(•tagnla 

:  lalograWQttlt 

Figure  B.ll  •  Integration  Panel 

The  only  difference  between  Integrate  and  Integrate/Quit  button  is  while  first  button 
returns  back  to  the  Main  Menu  panel,  the  latter  quits  the  program  after  integration  process. 
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APPENDIX  C  -  SOURCE  CODE  FOR 
INTEGRATION  TOOL 


A.  PSDL_LEX.L 

--  ***  File  :  psdl_lex.l 

--  ***  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 


% START  I DENT  Z 
Digit  [0-9] 

Int  {Digit}+ 

Letter  [a-zA-Z_] 

Alpha  ( [Letter } I (Digit ) ) 
Blank  [  \t\n] 


Text 

StrLit 

Quote 

A 

B 

C 

D 

E 

F 

G 

H 

I 


["{)] 

[ "  "  \  \  ]  I  (  \  \  ]  [ "  \  \  ] 
[“] 

[aA] 

[bB] 

[cC] 

[dD] 

[eE] 

(fF) 

[gG] 

[hH] 

[il] 


J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 
W 
X 

Y 
Z 

%% 


[jJ] 

[kK] 

[IL] 

[mM] 

[nN] 

[oO] 

[pP] 

[qQ] 

[rR] 

[sS] 

[tT] 

[uU] 

[vV] 

[wW] 

[xX] 

[yY] 

[ZZ] 


(A) (D) (A) 

{A}{X}(I){0}{M}{S) 


{B} [Y) (Blank)+(A} (L) [L) 


(ENTER ( Z) ; return (ADA_TOKEN) ;  ) 

( ENTER ( Z) ; return (AXIOMS.TOKEN) ;  ) 
( ENTER ( Z ); return ( BY_ALL_TOKEN ) ;  ) 
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{B} {Y} {Blank}+{S} {0} {M} {£)  {ENTER(Z) ; return ( BY.SOME.TOKEN) ; } 

{C} (0} (N) {T} (R) (0) (L)  {ENTER ( Z) ; return (CONTROL_TOKEN) ;  } 

(C)  (0) {N) (S) (T) {R} (A) {1} (N) {T} (S)  {ENTER(Z) ; return ( CONSTRAINTS_TOKEN) ;  } 

(D) (A}(T}{A}  (ENTER  (Z)  .-return  (DATA_TOKEN)  ;  } 

(D)  (E) {S} (C) {R) {1} (P) {T} (1} (O) (N)  {ENTER(Z)  ; return  I DESCRI PTION_TOKEN)  ;  ) 

{E)(D}{G}{E}  { ENTER ( Z) ; return (EDGE_TOKEN) ;  } 

{ E } { N ) { D }  { ENTER ( Z ) ; return ( END_TOKEN ) ;  } 

fE} (X) (C) (E) {P} (T) (1} {0} {N} (S)  {ENTER(Z) ; return ( EXCEPTIONS_TOKEN) ;  } 

{E} {X} (C) (E) (P) (T) (I) {0} (N)  {ENTER(Z) ; return ( EXCEPTION_TOKEN; ) 

{F} {1} (N) {1} (S) (H)  (ENTER ( Z) ; return (FINISH_TOKEN) ;  ) 

(W} (I) (T} (H) (1} (N)  (ENTER(Z) ;return(WITHIN_TOKEN) ;  ) 

(G)  {E} (N) (E) (R) {1} (C}  (ENTER ( Z) ; return (GENERIC_TOKEN) ;  } 

{ G } { R ) ( A) { P ) { H }  ( ENTER ( Z ) ; return ( GRAPH_TOKEN) ;  } 

(H)  (0) (U) {R} (S)  (ENTER ( Z) ; return (HOURS_TOKEN) ;  } 

(I}(F}  (ENTER ( Z) ; return ( IF_TOKEN) ;  } 

(I)  (M) (P) (L} (E) (M) (E) {N} (T) (A) (T) (1} {0} (N) 

( ENTER ( Z ) ; return ( IMPLEMENTATION_TOKEN) ;  } 

(1} {N} {1} (T) (I) (A) (L) (L) (Y)  (ENTERIZ) ; return ( INITIALLY_TOKEN) ;  } 

(1} (N} (P) {U} (T)  (ENTER (Z) ; return ( INPUT_TOKEN) ;  } 

(K) (E) (Y) (W) (0) (R) (D) {S}  (ENTER (Z) ; return (KEYWORDS_TOKEN) ; ) 

(M) (A) (X) {1} (M) (U) {M}  (ENTER ( Z) ; return (MAXIMUM_TOKEN) ;  } 

(E)  (X) (E) (C) {U} (T) (I) {0} (N)  (ENTER (Z) ; return (EXECUTION_TOKEN) ;  } 

{T){I}(M}{E}  (ENTER ( Z) ; return {TIME_TOKEN) ;  } 

(R) (E) (S) (P) (0) (N) (S) {E}  {ENTER{Z) ; return ( RES PONSE_TOKEN) ; } 
{M}{I}(C}{R}{0){S}(E}{C} l(M}{I){C}{R}{0}{S)(E}(C){0}{N}{D}{S) 

(ENTER(Z) ; return (MICROSEC_TOKEN) ;  } 

(M) (I) (N) (I) (M) (U) (M)  ( ENTER ( Z) ; return (MINIMUM_TOKEN) ;  } 

{C){A){L}(L){I){N}{G}(Blank}+(P){E){R){I}{0)(D) 

(ENTER (Z) ; return (CALL_PERIOD_TOKEN) ;  ) 

(M) {1} (N) I (M) {1} (N) (U) (T) {E} (S) (ENTER(Z) ; return (MIN_TOKEN) ; } 

(M) (S) I (M) {1} (L) (L) (I) (S) (E) (C) {0} (N) (D) (S)  {ENTER(Z) ; return (MS_TOKEN) ; } 
{0} {P} (E) {R} (A) {T} (0) (R)  (ENTER (Z) ; return ( OPERATOR_TOKEN) ; } 

(0} (U) (T) (P) (U) (T)  (ENTER ( Z) ; return (OUTPUT_TOKEN) ;  } 

(P) (E) (R) (I) (O) (D)  (ENTER ( Z) ; return (PERIOD_TOKEN) ;  ) 

(R) (E) {Q} (U) (I) (R) (E) (D) {Blank}+{B} (Y)  {ENTER(Z) ; return (REQ_BY_TOKEN) ;  ) 

(R)  (E)  {S}  (E)  (T)  {Blank)  +  {T}  (I)  (M)  (E)  (R)  {ENTER(Z)  .-return  (RESET_TOKEN)  ;  ) 

(S)  (E) (C) I (S) {E} {C} (0) (N) (D) (S)  {ENTER(Z) ; return ( SEC_TOKEN) ; } 

(S) (P) (E) (C) (I) (F) (I) (C) (A) (T) (I){0}{N) 

(ENTER (Z) ; return (SPECIFICATION_TOKEN) ;  } 

(S)  (T)  (A)  (R)  (T)  {Blank)  +  (T}  (I)  (M)  (E)  (R)  {ENTER(Z)  .- return  ( START_TOKEN)  ;  } 
(S) (T) (A) (T) (E) (S)  (ENTER ( Z) ; return (STATES_TOKEN) ;  } 

(S)  {T}  (O)  (P)  {Blank)  +  {T)  {1}  (M)  (E)  (R)  {ENTER(Z)  ;  return  ( STOP_TOKEN)  .-  ) 

(S)  (T) (R) (E) (A) (M)  (ENTER(Z) ;return(STREAM_TOKEN) ;  ) 

(T)  {1}  (M)  (E)  (R)  { ENTER (Z)  .-return  (TIMER_TOKEN)  .-  } 

{T} {R} {1} (G) (G) (E) (R) (E) (D)  {ENTER(Z) ; return (TRIGGERED_TOKEN) ;  ) 
(T}{Y)(P){E}  { ENTER  (Z)  .-return  (TYPE_TOKEN)  ;  } 

(V)  (E)  (R)  (T)  (E)  (X)  (ENTER  (Z)  .-return  (VERTEX_TOKEN)  ;  ) 

”  and "  I  "  AND  “  { ENTER  ( Z )  ;  return  ( AND_TOKEN )  .-  } 

"or" rOR"  {ENTER(Z) ; return (OR_TOKEN) ;  ) 

"  xor  “  I  "  XOR "  { ENTER  ( Z )  ;  return  ( XOR_TOKEN )  .-  } 

"  >= "  { ENTER  ( Z )  ;  return  ( GREATER_THAN_OR_EQUAL )  .-  } 
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«  ^  M 


II  ^  II 
II  )  II 


M  II 
II  ^  U 

"mod" I "MOD" 

"rem" 1 “REM" 

" **" I "EXP" 1 "exp" 
"abs" I “ABS" 

"not" I "NOT" 
{T}{R){U}{E} 
{F}(A){L}{S)(E} 
<IDENT>\ ■ 
(Letter) (Alpha) * 


( ENTER ( Z ) ; return ( LESS_THAN_OR_EQUAL ) 
( ENTER ( Z ) ; return ( INEQUALITY ) ;  ) 

( ENTER ( Z) ; return ( ARROW) ;  ) 

(ENTER(Z) ;return( ■ =■ ) ;  ) 

(ENTER (Z) ;return( •  +  ■)  ;  ) 

(ENTER(Z) ;return(  ■ ;  ) 

(ENTER(Z) ;return( ■ * ■ )  ;  ) 

(ENTER(Z) ;return( • /  ■  >  ;  ) 

( ENTER { Z ) ; return ('&•);  ) 

(ENTER ( Z) ; return ('(■);  ) 

(ENTER{Z) ;return( • )  ■  )  ;  ) 

(ENTER(Z) ;return( ■ [ ‘ ) ;  ) 

(ENTER(Z) ;return( ■ ] ' ) ;  ) 

(ENTER(Z) ;return( • :  ■  )  ;  ) 

( ENTER ( Z) ; return (',■);  ) 

(ENTER(Z) ;return( •  . • )  ;  ) 

(ENTER(Z) ;return( ■ I • ) ;  ) 

(ENTER{Z) ;return( •>■ )  ;  ) 

(ENTER(Z) ;return( •<* ) ;  ) 

( ENTER { Z ) ; return ( MOD_TOKEN ) ;  ) 

( ENTER ( Z ) ; return ( REM_TOKEN ) ;  ) 

( ENTER ( Z ) ; return ( EXP_TOKEN ) ;  ) 
(ENTER ( Z) ; return (ABS_TOKEN) ;  ) 

( ENTER ( Z ); return ( NOT_TOKEN ) ;  ) 

( ENTER ( Z ) ; return { TRUE ) ;  ) 

( ENTER ( Z ) ; return { FALSE ) ;  ) 

(ENTER(Z) ;return( • • • ) ;  ) 

(ENTER (I DENT) ; 


strlen{psdl_lex_dfa.yytext, length) ; 
the_id_to)cen ( 1 ..  length)  :=  psdl_lex_dfa.yytext  ; 


return ( IDENTIFIER) ;  ) 
(Quote) (StrLit) ‘(Quote) 
(Int) 

(Int) " . " (Int) 

" ( " (Text) *“ ) " 

(\n] 

[  \t] 

%% 


( ENTER { Z ) ; return ( STRING_LITERAL ) ;  ) 

( ENTER { Z ) ; return ( INTEGER_LITERAL ) ;  ) 
( ENTER { Z ) ; return ( REAL_LITERAL ) ;  ) 

{  ENTER ( Z ) ; return ( TEXT_TOKEN ) ;  ) 
(NULL;  ) 

(NULL;)  --ignore  spaces  and  tabs 


with  Psdl_To)cens ,  component_aux_p)cg; 
use  Psdl_Tolcens ,  component_aux_p)cg  ; 


pac)cage  Psdl_Lex  is 

function  yylex  return  to)cen; 
end  Psdl_Lex; 


package  body  Psdl_Lex  is 
## 

end  Psdl_Lex; 


68 


B.  PSDL.Y 


--  ***  File  :  psdl.y 

--  ***  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 

%token  '  ( '  ' )  '  '  [  '  '  ]  '  '  :  ‘  , . -  ■  ■  r 

%token  ARROW 

%token  TRUE  FALSE 

%token  ADA_TOKEN  AXIOMS_TOKEN 

%token  By_ALL_TOKEN  REQ_BY_TOKEN  BY_SOME_TOKEN 

%token  CALL_PERIOD_TOKEN  CONTROL_TOKEN 

% token  CONSTRAIMTS_TOKEN 

%token  DESCRIPTION_TOKEN  DATA_TOKEN 

%token  END_TOKEN  EDGE_TOKEN  EXCEPTION_TOKEN 

%token  EXCEPTIONS_TOKEN  EXECUTION_TOKEN 

%token  FINISH_TOKEN 

%token  GENERIC_TOKEN  GRAPH_TOKEN 

%token  HOURS_TOKEN 

%token  IF_TOKEN  IMPLEMENTATION_TOKEN 

%token  INPUT_TOKEN  INITIALLY_TOKEN 

% token  KEYWORDS_TOKEN 

%token  MAXIMUM_TOKEN  MINIMUM_TOKEN 

%token  MICROSEC.TOKEN  MIN_TOKEN  MS_TOKEN 

% token  MOD_TOKEN  NOT_TOKEN 

%token  OPERATOR_TOKEN  OR_TOKEN 

%token  OUTPUT_TOKEN 

%token  PERIOD_TOKEN 

%token  RESET_TOKEN  RESPONSE_TOKEN 

%token  SPECIFICATION_TOKEN  SEC_TOKEN 

%token  START_TOKEN  STATES_TOKEN  STOP_TOKEN 

%token  STREAM_TOKEN 

%token  TIME_TOKEN  TIMER_TOKEN 

%token  TYPE_TOKEN  TRIGGERED_TOKEN 

% token  VERTEX_TOKEN 

% token  WITHIN_TOKEN 

% token  TEXT_TOKEN 

%token  IDENTIFIER 

% token  STRING_LITERAL 

%token  INTEGER_LITERAL 

%token  REAL_LITERAL 

_ -operator  precedences 

%left  AND_TOKEN  OR_TOKEN  XOR_TOKEN  LOGICAL_OPERATOR 

%left  •<'  ■>■  •=■  GREATER_THAN_OR_EQUAL  LESS_THAN_OR_EQUAL  INEQUALITY 

RELAT I0NAL_0  PERATOR 

%left  '+•  BINARY_ADDING_OPERATOR 

%left  UNARY_ADDING_0 PERATOR 

%left  •/■  MOD_TOKEN  REM_TOKEN  MULTI PLYING_OPERATOR 

%left  EXP_TOKEN  ABS_TOKEN  NOT_TOKEN  HIGHEST_PRECEDENCE_0 PERATOR 
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%start  start_symbol 

( 

subtype  yystype  is  integer; 

} 

%% 

start_symbol : 

psdl 

I 

psdl : 

psdl 

component 


component : 

data_type 

I 

operator 

/ 

data_type : 

TYPE_TOKEN 

{ 

is_adt  :=True; 

) 

IDENTIFIER 

{ 

null  ; 

) 

type_spec  type_impl 

I 

type_spec : 

SPECIFICAT10N_T0KEN  optional_generic_param 
optional_type_decl 

op_spec_list  functionality  END_TOKEN 

opt ional_gener ic_param ; 

GENERIC_TOKEN 

{ 

is_generic  :=  True; 
gen_par  ;=  True; 

) 

1 i s  t_o  f _type_dec 1 
I 

optional_type_decl : 

1 i s  t_o  f _type_dec 1 


op_sp®c_list ; 

op_spec_list 

OPERATOR_TOKEN 
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IDENTIFIER 

{ 

tmp_op_name ( 1 . .length) : =the_id_token ( 1 . .length) 
len_naine :  =  length; 

} 

operator_spec 

{ 

if  is_adt  then 

component_aux_pkg . Put_adt_op 
( tinp_op_name , len_name, has_inputs, has_outputs, adt_op_ptr) 
has_inputs:=  False; 
has_outputs : =  False; 
in_par : =False; 
out_par : =False ; 
end  if; 


operator : 

OPERATOR_TOKEN 

{ 

is_operator  :=  True; 

) 

IDENTIFIER 

{ 

null ; 

) 

operator_spec  operator_impl 

operator_spec : 

SPECIFICATION_TOKEN 

interface 

functionality 

END_TOKEN 

interface : 

interface  attribute  reqints_trace 
I 

attribute : 

GENERIC_TOKEN 

{ 

is_generic  :=  True; 
gen_par  : =  True ; 

} 

list_of_type_decl 

I 

INPUT_TOKEN 

{ 

has_in_paraun  :  =  True  ; 
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has_inputs  :=  True; 
in_par  :=  True; 
gen_par  :=  False; 

} 

1 ist_of_type_decl 
I 

OUTPUT_TOKEN 

{ 

has_out_param  :=  True; 
has_outputs  :=  True; 
in_par  :=  False; 
out_par  : =  True ; 
gen_par  :=  False; 

) 

1 i s  t_o  f _type_dec 1 
I 

STATES_TOKEN 

1 i s t_o  f _type_dec 1 

INITIALLY_TOKEN 

initial_expression_list 

I 

EXCE  PT I ONS_TOKEN 

id_list 

I 

MAXIMUM_TOKEN  EXECUTION_TOKEN  TIME_TOKEN  time 

list_of_type_decl : 

list_of_type_decl  type_decl 

I 

Cype_decl 


type_decl : 

id_list 

{ 

if  gen_par  then 

if  the_id_token ( 1 .. length)  =  "BASE_TYPE*  or 
the_id_token ( 1 .. length)  =  "base_type"  then 
null  ; 

else 

component_aux_pkg . Put_gen_parameter ( the_id_token , 

"  ",  length, 1, gen_par_ptr) ; 

end  if; 
end  if; 

if  in_par  then 
if  out_par  then 
null  ; 
else 

component_aux_pkg.Put_in_pareimeter(the_id_token,  length,  in_par_ptr)  ; 
end  if; 
end  i f ; 
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if  out_par  then 

component_aux_pkg . Put_out_parameter ( the_id_token, length, out_par_ptr ) ; 
end  if; 

} 

I  .  I 

type_name 

{ 

if  in_par  then 
if  out_par  then 
null  ; 
else 

component_aux_pkg . Put_in_parameter_val ( the_id_token, 

length, in  _par_val_ptr ) ; 

end  if; 
end  i f ; 

if  out_par  then 

component_aux_pkg. Put_out_paraineter_val ( the_id_token, 

length, out_par_val_ptr) ; 

end  if; 

) 

/ 

type_naine : 

IDENTIFIER 
'  [  ' 

1 i s  t_of _type_dec 1 

•  ]  • 

I 

IDENTIFIER 

id_list : 

id_list 

t 

IDENTIFIER 

I 

IDENTIFIER 

/ 

reqints_trace : 

REQ_BY_TOKEN  id_list 
I 
/ 

functionality : 

keywords  infonnal_desc  formal_desc 
/ 

keywords : 

KEYWORDS_TOKEN 

{ 

out_par  :=  False; 

gen_par  :=  False; --in  case  no  in/out  parcimeters 

null  ; 
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) 

id_list 


informal_desc : 

DESCRIPTION_TOKEN  TEXT_TOKEN 
I 

I 

formal_desc : 

AXIOMS_TOKEN  TEXT_TOKEN 


type_impl : 

IMPLEMENTATION_TOKEN  ADA_TOKEN  IDENTIFIER 

( 

withname  .  name  ( 1 .  .  length)  :  =the_id_to)cen  ( 1 .  .  length)  ; 
withname . len : =length; 

} 

END_TOKEN 

I 

IMPLEMENTATION_TOKEN  type_name  op_impl_list  END_TOKEN 

op_impl_list : 

op_impl_list  OPERATOR_TOKEN  IDENTIFIER  operator_impl 


operator_impl ; 

IMPLEMENTATION_TOKEN  ADA_TOKEN  IDENTIFIER 

{ 

withname .  name  ( 1 .  .  length)  :  =the_id_to)<en  { 1 .  .  length)  ; 
withname . len : =length; 

) 

END_TOKEN 

I 

IMPLEMENTATION_TOKEN  psdl_impl  END_TOKEN 
/ 

psdl_impl : 

data_f low_diagram  streams  timers  control_constraints 

in forma l_desc 

/ 

data_f  low_diagraun : 

GRAPH_TOKEN  vertex_list  edge_list 

vertex_list : 

vertex_list  VERTEX_TOKEN  op_id  optional_time 


edge_list : 

edge_list  EDGE_TOKEN  IDENTIFIER 
optional_time  op_id  ARROW  op_id 
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op_id : 


IDENTIFIER  opt_arg 


opt_arg : 

' ( '  optional_id_list 
' I '  optionaJ _id_list  ' ) 


id_list : 

id_list 


t  ime : 

' : '  time 


DATA_TOKEN  STREAM_TOKEN  list_of_type_decl 


t imers : 

TIMER_TOKEN  id_list 


control_constraints : 

CONTROL_TOKEN  C0NSTRAINTS_T0KEN  constraints 
/ 

constraints : 

constraints  OPERATOR_TOKEN  IDENTIFIER 
opt_trigger  opt_period  opt_f inish_within 
opt_mcp  opt_mrt  constraint_options 
I 

OPERATOR_TOKEN  IDENTIFIER 

opt_trigger  opt_period  opt_f inish_within 

opt_mcp  opt_mrt 

constraint_options : 

constraint_options  OUTPUT_TOKEN  id_list  IF_TOKEN 
expression  reqmts_trace 

I 

constraint_options  EXCEPTION_TOKEN  IDENTIFIER 
opt_if_predicate  reqmts_trace 
I 

constraint_options  timer_op  IDENTIFIER 
opt_if_predicate  reqmts_trace 
I 

t 

opt_trigger : 

TRIGGERED_TOKEN  trigger  opt_i f_predicate  reqmts_trace 


opt  ional. 


optional_ 


streams ; 
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trigger : 


BY_ALL_TOKEN  id_list 
I 

BY_SOME_TOKEN  id_list 


opt_period : 

PERIOD_TOKEN  time  reqmts_trace 


opt_f inish_within : 

FINISH_TOKEN  WITHIN_TOKEN  time  reqmts_trace 


opt_mcp : 

MINIMUM_TOKEN  CALL_PERIOD_TOKEN  time  reqmts_trace 


opt_mrt : 

max_resp_time  time  reqmts_trace 


max_resp_t ime ; 

MAXIMUM_TOKEN  RESPONSE_TOKEN  TIME_TOKEN 
/ 

timer_op : 

RESET.TOKEN 

I 

START_TOKEN 

I 

STOP_TOKEN 

* 

opt_if _predicate : 

IF_TOKEN  expression 

I 

/  * 
initial_expression_list : 

initial_expression_list  ' , '  initial_expression 

I 

initial_expression 

/ 

initial_expression : 

TRUE 

I 

FALSE 

1 

INTEGER_LITERAL 

I 

REAL_LITERAL 
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STRING_LITERAL 


IDENTIFIER 


type_naine  '  .  '  IDENTIFIER 
I 

type_name  ' . '  IDENTIFIER  ' ( '  initial_expression_list  ' ) ' 

I 

'  (  '  initial_expression_list  ‘ )  ' 

I 

initial_expression  log_op  initial_expression  %prec 
logical_operator 
I 

initial_expression  rel_op  initial_expression  %prec 
relational_operator 
I 

initial_expression  %prec  unary _adding_operator 
I 

'+■  initial_expression  %prec  unary _adding_operator 
I 

initial_expression  bin_add_op  initial_expression  %prec 
multiplying_operator 
I 

initial_expression  bin_mul_op  initial_expression  %prec 
mult iplying_operator 
1 

initial_expression  EXP_TOKEN  initial_expression  %prec 
highest  _precedence_operator 
I 

NOT_TOKEN  initial_expression  %prec 
highest_precedence_operator 
I 

ABS_TOKEN  initial_expr€ssion  %prec 
highest_precedence_operator 

log_op : 

AND_TOKEN 

I 

OR_TOKEN 

I 

XOR_TOKEN 

/ 

rel_op : 

■<■  I  ■>■  I  •=■  I  GREATER_THAN_OR_EQUAL 

I 

LESS_THAN_OR_EQUAL  I  INEQUALITY 

bin_add_op : 

'+'  I  ' - ■  I  '&• 

I 

bin_mul_op : 
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t  ime : 


’ * '  I  ■ / '  I  MOD_TOKEN  I  REM_TOKEN 
/ 

time_nuinber  MICROSEC_TOKEN 
1 

time_nuinber  MS_TOKEN 
I 

time_number  SEC_TOKEN 
I 

time_number  MIN_TOKEN 
I 

time_number  HOURS_TOKEN 


t  ime_nun\ber ; 

INTEGER_LITERAL 


expression_list : 

expression_list  ‘ , ‘  expression 
I 

expression 


expression : 

TRUE  I  FALSE  I  INTEGER_LITERAL  I  time  1  REAL_LITERAL 
I  STRING_LITERAL  I  IDENTIFIER 
I  type_name  ' . •  IDENTIFIER 

I  type_name  ' . '  IDENTIFIER  * ( '  expression_list  ' ) ' 

I  ' { ‘  expression_list  ' ) ' 

I  expression  log_op  expression  %prec  logical_operator 
I  expression  rel_op  expression  %prec  relational_operator 
I  expression  %prec  unary _adding_operator 

I  '+'  expression  %prec  unary_adding_operator 
I  expression  bin_add_op  expression  %prec 
unary _adding_operator 

I  expression  bin_mul_op  expression  %prec 
multiplying_operator 

1  expression  EXP_TOKEN  expression  %prec 
highest_precedence_operator 

I  NOT_TOKEN  expression  %prec  highest_precedence_operator 
I  ABS_TOKEN  expression  %prec  highest_precedence_operator 


%% 

with  Text_io, psdl_tokens , psdl_goto, psdl_shif t_reduce, psdl_lex, 
component_aux  _pkg ; 

use  Text_io, psdl_token3, psdl_goto,psdl_shift_reduce, psdl_lex, 
component_aux_pkg ; 

package  component_parser  ’ s 

procedure  Yyparse; 
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echo  : 

number_of_errors 
in_par  : 

out_par  : 

gen_par  : 

has_inputs  : 

has_outputs  : 

tinp_op_nanie  : 

len  name  : 


boolean  :=  false; 

:  Natural  :=  0; 
Boolean : =False; 
Boolean ; =False ; 
Boolean: =False; 
Boolean : =False ; 
Boolean : =False ; 
String ( 1 . . 80 ) ; 
Integer : =0 ; 


end  component _parser; 


package  body  component_parser  is 

procedure  Yyerrorfs  :  in  string  :=  “syntax  error") 
begin 

number_of_errors  :=  number_of_errors  +  1; 
put  ( “***  “  )  ; 
put_line { s ) ; 
end  Yyerror; 

##%procedure_parse 

end  component_parser ; 


is 
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C.  QUERY_LEX.L 


--  ***  File 
--  ***  Author 
--  ***  Date 


:  query_lex.l 
:  Dogan  Ozdemir 
:  September  1992 


% START  I DENT  Z 
Digit  [0-9] 

Int  {Digit}+ 

Letter  [a-zA-2_] 

Alpha  ( {Letter} I {Digit} ) 

Blank  [  \t\n] 

Text  [''{}] 

StrLit  [^"W]  I  [\\]  ["W] 
Quote  [ " ] 

A  [aA] 

B  [bB] 

C  [cC] 

D  [dD] 

E  [eE] 

F  [fF] 

G  [gG] 

H  [hH] 

I  [il] 

J  [jJ] 

K  [kK] 

L  [IL] 

M  [mM] 

N  [nN] 

0  [oO] 

P  [pP] 

Q  [qQ] 

R  [rR] 

s  [sS] 

T  [tT] 

U  [uU] 

V  [vV] 

W  [wW] 

X  [xX] 

Y  [yY] 

Z  [zZ] 


%% 


{A}{D){A}  {ENTER (Z) ; return (ADA_TOKEN) ;  } 

{A} {X} {1} {0} {M} {S}  {ENTER (Z) /return (AXIOMS_TOKEN) ;  } 

{B} {Y} {Blank}+{A} {L} {L)  {ENTER (Z) /return (BY_ALL_TOKEN) ;  } 

{B} {Y) {Blank}>{S} {0} {M} {E}  {ENTER(Z) / return (BY_SOME_TOKEN) / } 

{O {0} {N} {T) {R} {0} {L}  {ENTER (Z) /return (C0NTR0L_T0KEN) ;  } 

{C} {O) (N) {S) {T) {R} {A} {1} {N} {T) {S}  {ENTER(Z) / return (CONSTRAINTS_TOKEN) ;  } 
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(D) 

(A) 

(T) 

(A) 

(D) 

(E) 

(S) 

(C) 

(R) 

(I) 

(P) 

(T) 

(1} 

(E) 

(D) 

(G) 

(E) 

(E) 

{N} 

(D) 

(E) 

(X) 

(C) 

(E) 

(P) 

(T) 

{1} 

(0) 

(N) 

(E} 

(X) 

(C) 

(E) 

(P) 

(T) 

(I) 

(0) 

(N) 

(F) 

(I) 

(N) 

(I) 

{S} 

(H) 

(W) 

(I) 

(T} 

(H) 

(I) 

(N) 

(G) 

(E) 

(N) 

(E) 

{R} 

(I) 

(C) 

(G) 

(R) 

(A) 

(P) 

(H) 

{H} 

{0} 

{U} 

(R} 

{3} 

(1} 

(F) 

{1} 

(M) 

(P) 

(L) 

(E) 

{M} 

(E) 

(N) 

(T) 

( ENTER ( Z ); return { DATA_TOKEN )  ;  } 

{0}{N)  {ENTER{Z) ; return ( DESCRIPTION_TOKEN) 
{ENTER  (Z)  .-return  (EDGE_TOKEN)  ;  } 

{ ENTER ( Z) ; return (END_TOKEN) ;  } 

{ S }  { ENTER ( Z ) ; return ( EXCEPT I ONS_TOKEN ) ;  ) 
(ENTERIZ) ; return (EXCEPTION_TOKEN) ;  } 


(ENTER (Z) ; return (FINISH_TOKEN) ; 
(ENTER (Z) ; return (WITHIN_TOKEN) ; 
{ ENTER ( Z ) ; return ( GENERIC_TOKEN ) 
(ENTER (Z) ; return (GRAPH_TOKEN) ; 
(ENTER (Z) ; return (HOURS_TOKEN) ; 
(ENTER (Z) ; return ( IF_TOKEN) ;  } 


} 


{ ENTER ( Z ) ; return ( IMPLEMENTATION_TOKEN) ;  } 


{1} (N) {1} (T) (1} (A) (L) {L} (Y) 
(I}(N}{P}{U}{T) 

(K) (E) (Y) (W) {0} (R) (D) (S) 

(M) (A) (X) {1} {M} {U} (M) 

(E) {X} (E) (C) (U) (T) {1} {0} (N) 
(T) (I) (M) (E) 

(R) (E) (S) (P) (0) (N) {3} (E) 


} 


} 


} 


} 


(ENTER (Z) ; return (INITIALLY_TOKEN) ; 

{ ENTER ( Z ) ; return ( INPUT_T0KEN) ;  } 

{ ENTER (Z) ; return (KEYW0RDS_T0KEN) ; ) 

{ ENTER (Z) ; return { MAX IMUM_T0KEN) 

{ ENTER ( Z ) ; return ( EXECUTI0N_T0KEN) 

(ENTER (Z)  .-return (TIME_T0KEN)  ;  ) 

{ ENTER ( Z ) ; return ( RES PONS E_T0KEN ) 

(M) (I) (C) (R) (O) (S) (E) (C) I (M) (I) (C) (R) (O) (S) (E) (C) (O) (N} (D) (S) 

(ENTER (Z) ; return (MICROSEC_TOKEN) ;  ) 

{M}  (I)  (N)  (I)  (M)  (U)  (M)  (ENTER  (Z)  .-return  (MINIMUM_TOKEN)  ,-  } 

{C}{A}{L){L)(I}{N}{G}{Blank}-^{P){E}{R}(I}(0}{D} 

{ ENTER ( Z ) ; return ( CALL_PERIOD_TOKEN) ;  ) 

(M) {1} (N) I (M) {1} (N) {U} (T) (E) (S) 

(ENTER (Z) ; return (MIN_TOKEN) ; } 

{M} (S) I (M) (I) (L) (L) {1} (S) {E} {C} (O) (N) (DXS)  (ENTER (Z) ; return (MS_TOKEN) 

} 

{0}  (P)  (E)  (R)  (A)  (T)  (0)  (R)  {ENTER(Z)  ;  return ( OPERATOR_TOKEN)  ,- ) 

{0}  {U}  (T)  (P)  (U)  (T)  (ENTER (Z)  .-return (OUTPUT_TOKEN)  ;  ) 

(P)  (E)  (R)  {1}  (0)  (D)  { ENTER (Z)  .-return {PERIOD_TOKEN)  ;  ) 

(R)  (E)  (Q)  (U)  {1}  (R)  (E)  (D)  {Blank)-t-{B)  (Y)  {ENTER(Z)  ;  return  ( REQ_BY_TOKEN)  ; 

(R)  (E)  (S)  (E)  (T)  {Blank)-t-{T)  (I)  (M)  (E)  (R)  {ENTER(Z)  .- return  ( RESET_TOKEN)  ; 

(S)  (E) (C) I (S) (E) (C) (O) (N) (D) (S)  {ENTER(Z) ; return ( SEC_TOKEN) ; ) 
{S){P){E){C){I}{F)(I){C){A){T){I}{0){N) 

(ENTER(Z)  .- return  (SPECIFICATION_TOKEN)  ;  ) 

{S}  (T)  (A}  {R}  (T)  {Blank)  +  {T)  (I)  (M)  (E)  (R)  {ENTER(Z)  .- return  ( START_TOKEN)  ; 
(S}  (T)  {A}  {T}  (E)  (S)  { ENTER (Z)  .-return  (STATES_TOKEN)  ,-  } 

(S)  (T)  (0}  (P)  {Blank}-t-{T)  (I)  (M)  (E)  (R)  {ENTER(Z)  .- return  (STOP_TOKEN)  ; 


} 


{ ENTER  ( Z ).-  return  ( STREAM_TOKEN )  ;  ) 
(ENTER  (Z)  ;  return  (TIMER_TOKEN)  ,-  } 

{ ENTER ( Z ) ; return ( TRIGGERED_TOKEN ) 
{ENTER(Z)  .-return(TYPE_TOKEN)  ;  } 

{ ENTER  ( Z )  .-  return  ( VERTEX_TOKEN )  ;  } 


(S)  (T) (R) (E) (A) (M) 

(T}{I}{M}{E}(R) 

(T}{R}{I}{G){G){E){R){E){D) 

(T)  (Y) (P) (E) 

(V)  (E)  (R)  (T)  (E)  (X} 

"and"  I  "AND"  {ENTER{Z)  .- return (AND_TOKEN) 

"or"  I  "OR"  (ENTER (Z)  .- return (OR_TOKEN)  .- 

"xor"l"XOR"  (ENTER (Z)  .-return (XOR_TOKEN)  .-  ) 

" >= "  { ENTER ( Z ) ; return ( GREATER_THAN_OR_EQUAL ) 

"  <  = "  { ENTER  ( Z )  .-  return  ( LESS_THAN_OR_EQUAL )  .-  } 


) 


) 
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“/=“  1 

M  _  H 

( ENTER ( Z ) ; return ( INEQUALITY 

;  ) 

II  _  ^  « 

(ENTER (Z) ; return (ARROW) ;  ) 

II  _  H 

(ENTER{Z) ;return( *=• ) ;  ) 

(ENTER(Z) ;return( *+■ ) ;  ) 

(ENTER(Z) ;return( ■ -• ) ;  ) 

II  -k  II 

(ENTER(Z) ;return( ■ *• ) ;  ) 

H  y  II 

(ENTER(2) ;return( • / • ) ;  ) 

"Sc" 

(ENTER(Z) ;return{ *&* ) ;  ) 

II  ^  II 

(ENTER(Z) ;return( • { • ) ;  ) 

II  ^  II 

(ENTER{Z) ;return( • ) • ) ;  ) 

II  ^  II 

(ENTER(Z) ;return( • [ ‘ ) ;  ) 

H  j  II 

(ENTER(Z) ;return( * ] • )  ;  ) 

H  .  H 

(ENTER(Z) ;return( * : ■ ) ;  ) 

H  II 

(ENTER(Z) ;return( •  ,  ■ ) ;  ) 

II  II 

(ENTER(Z) ;return( • . • ) ;  ) 

II  1  11 

(ENTER(Z) ;return( *  1 ■ ) ;  ) 

M  ^  II 

(ENTER(Z) ;return( •>' ) ;  ) 

(ENTER(Z) ;return( •< • ) ;  ) 

"mod" 

1 "MOD" 

( ENTER { Z ) ; return ( MOD_TOKEN ) 

) 

"rem" 

1 "REM* 

( ENTER  { Z )  ;  return  { REM_TOKEN ) 

) 

N  *  «  H  1 

"EXP" 1 "exp" 

( ENTER ( Z ) ; return ( EXP_TOKEN ) 

) 

"abs" 

1 "ABS" 

( ENTER ( Z ); return ( ABS_TOKEN ) 

) 

"not  “ 

1  "NOT" 

( ENTER ( Z ) ; return ( NOT_TOKEN ) 

) 

(T)(R)(U)(E) 

( ENTER ( Z ) ; return ( TRUE ) ;  ) 

(F)(A)(L)(S)(E) 

( ENTER ( Z ) ; return ( FALSE ) ;  ) 

<IDENT>\ ■ 

(ENTER(Z) ;return( • • • ) ;  ) 

(Letter) (Alpha) * 

( ENTER (IDENT) ; 

str len ( query_lex_df a .yy text , length) ; 

the_id_to)cen ( 1 ..  length)  :=  query_lex_dfa.yytext; 

return ( IDENTIFIER) ;  } 

(Quote) (StrLit } * (Quote) 

(Int) 

(Int) " . " (Int) 

"(■(Text)*")" 

[\n] 

[  \t) 

%% 

with  query _To)cens ,  query _aux_p)cg ; 
use  query _To)cens,  Text_io,  query _aux_plcg; 

pac)cage  query _Lex  is 

function  yylex  return  tolcen; 
end  query _Lex; 

pac)cage  body  query _Lex  is 
## 

end  query _Lex; 


(ENTER (Z) ; return (STRING_LITERAL) ; 
( ENTER ( 2 ) ; return ( INTEGER_LITERAL ) 
( ENTER ( Z ) ; return ( REAL_LITERAL ) ;  ) 
( ENTER { Z ) ; return ( TEXT_TOKEN ) ;  ) 
(NULL; ) 

(NULL; ) --ignore  spaces  and  tabs 
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D.  QUERY.Y 

--  ***  File  :  query. y 

--  ***  Author  ;  Dogan  Ozdemir 

--  ***  Date  :  September  1992 

%token  '  ( '  ' )  ■  '  [  '  ‘  ]  '  '  :  •  ‘ , . -  ■  ■  I  ' 

%token  ARROW 

%token  TRUE  FALSE 

%token  ADA_TOKEN  AXIOMS_TOKEN 

%token  BY_ALL_TOKEN  REQ_BY_TOKEN  BY_SOME_TOKEN 

%token  CALL_PERIOD_TOKEN  CONTROL_TOKEN 

%token  CONSTRAINTS_TOKEN 

%token  DESCRIPTION_TOKEN  DATA_TOKEN 

%token  END_TOKEN  EDGE_TOKEN  EXCEPT I ON_TOKEN 

%token  EXCEPTIONS_TOKEN  EXECUTION_TOKEN 

%token  FINISH_TOKEN 

% token  GENERIC_TOKEN  GRAPH_TOKEN 

% token  HOURS_TOKEN 

%token  IF_TOKEN  IMPLEMENTATION_TOKEN 

%token  INPUT_TOKEN  INITIALLY_TOKEN 

%token  KEYWORD'' .TOKEN 

% token  MAXIMUM_TOKEN  MINIMUM_TOKEN 

%token  MICROSEC_TOKEN  MIN_TOKEN  MS_TOKEN 

% token  MOD_TOKEN  NOT.TOKEN 

%token  OPERATOR_TOKEN  OR_TOKEN 

%token  OUTPUT_TOKEN 

%token  PERIOD_TOKEN 

% token  RESET_TOKEN  RESPONSE_TOKEN 

%token  SPECIFICATION_TOKEN  SEC_TOKEN 

%token  START_TOKEN  STATES_TOKEN  STOP_TOKEN 

%token  STREAM_TOKEN 

%token  TIME_TOKEN  TIMER_TOKEN 

% token  TYPE_TOKEN  TRIGGERED_TOKEN 

%token  VERTEX_TOKEN 

%token  WITHIN_TOKEN 

% token  TEXT_TOKEN 

%token  IDENTIFIER 

%token  STRING_LITERAL 

%token  INTEGER_LITEFAL 

%token  REAL_LITERAL 


--operator  precedences 

%left  AND_TOKEN  OR_TOKEN  XOR_TOKEN  LOGICAL_OPERATOR 

%left  '<■  ■>■  ■=■  GREATER_THAN_OR_EQUAL  LESS_THAN_OR_EQUAL  INEQUALITY 

RELATIONAL_OPERATOR 

%left  ■+'  ■-■  BINARY_ADDING_OPERATOR 

%left  UNARY_ADDING_OPERATOR 

%left  ■/•  MOD_TOKEN  REM_TOKEN  MULTI PLY ING_OPERATOR 

%left  EXP_TOKEN  ABS_TOKEN  NOT_TOKEN  HIGHEST_PRECEDENCE_OPERATOR 
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%start  start_symbol 


( 

subtype  yystype  is  integer; 

} 

%% 

start_syinbol : 

psdl 

t 

psdl : 

psdl 

component 

I 

component : 

data_type 

I 

operator 

data_type : 

TYPE_TOKEN 

{ 

query_is_adt  : =True ; 

} 

IDENTIFIER 

{ 

null  ; 

} 

type_spec  type_impl 
0 

type_spec : 

S PEC I F IC ATION_TOKEN  opt iona l_gener i c_par eun 
optional_type_decl 

op_spec_list  functionality  END_TOKEN 
0 

opt  ional_generic_pareun: 

GENERIC_TOKEN 

{ 

query_is_generic  :=  True; 
gen_par  : =  True ; 

} 

list_of_type_decl 


optional_type_decl : 

1 i s  t_o  f _type_dec 1 
I 
0 

op_spec_list : 
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op_spec_list 

OPERATOR_TOKEN 

IDENTIFIER 

( 

tmp_op_naine  ( 1 .  .  length)  :  =the_id_token  ( 1 .  .  length)  ; 
len_naine  :=  length; 

} 

operator_spec 

{ 

if  query_is_adt  then 

query _aux_plcg .  Put_adt_op  ( tmp_op_naroe ,  len_name , 
has_inputs , has_outputs , query_adt_op_ptr ) ; 
has_inputs;=  False; 
has_outputs : =  False; 
in_par : =False; 
out_par ; =False ; 
end  if; 


operator : 

OPERATOR_TOKEN 

{ 

query_is_operator  :=  True; 

} 

IDENTIFIER 

{ 

null  ; 

} 

operator_spec  operator_impl 


operator_spec : 

SPECIFICATION_TOKEN 
interface 
functionality 
END_TOKEN 

interface : 

interface  attribute  re<^ts_trace 

I 

7 

attribute : 

GENERIC_TOKEN 

{ 

query_is_generic  ;=  True; 
gen_par  : =  True ; 

} 

1 i s  t_o  f _type_dec 1 
I 

INPUT_TOKEN 

{ 


I 
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query_has_in_parain  :=  True; 
has_inputs  :=  True; 
in_par  ;=  True; 
gen_par  :=  False ; 

) 

1 i s  t_o  f _type_dec 1 
I 

OUTPUT_TOKEN 

{ 

query _has_out_param  :=  True; 
has_outputs  :=  True; 
in_par  :=  False; 
out _par  : =  True ; 
gen_par  :=  False; 

} 

list_of_type_decl 

I 

STATES_TOKEN 

list_of_type_decl 

INITIALLY_TOKEN 

initial_expression_list 

I 

EXCEPT I ONS_TOKEN 

id_list 

I 

MAXIMUM_TOKEN  EXECUTION_TOKEN  TIME_TOKEN  time 

f 

list_of_type_decl : 

list_of_type_decl  ‘ , '  type_decl 
I 

type_decl 


type_decl : 

id_list 

{■ 

if  gen_par  then 

query _aux_pkg . Put_gen_parameter ( the_id_token , 
*  " , length, 1 , query _gen_par_ptr ) 

end  i f ; 

if  in_par  then 
if  out_par  then 
null; 

else 

query _aux_pkg . Put_in_parameter ( the_id_token , 

length, query_in_par_ptr ) 

end  i f ; 
end  i f ; 

if  out_par  then 

query _aux_pkg . Put_out_parameter ( the_id_token , 

length, query _out_par_ptr ) 
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end  i f ; 

} 

<  .  • 

type_name 

{ 

if  in_par  then 
if  out_par  then 
null; 
else 

query _aux_pkg .  Put_in_parameter_val  { the_id_tol<:en , 

length, query_in_par_val_ptr ) 

end  i f ; 
end  if; 

if  out_par  then 

query _aux_pkg . Put_out_paraineter_val ( the_id_token, 

length, query_out_par_val_ptr ) 

end  i f ; 

} 

r 

type_name ; 

IDENTIFIER 
'  [  ■ 

1 i s  t_o  f _type_dec 1 
'  ]  ■ 

I 

IDENTIFIER 

I 

id_list : 

id_list 

I  I 
t 

IDENTIFIER 

I 

IDENTIFIER 

/ 

reqints_trace : 

REQ_BY_TOKEN  id_list 
I 
/ 

functionality : 

keywords  informal_desc  fornial_desc 


keywords : 

KEYWORDS_TOKEN 

{ 

out_par  :=  False; 

gen_par  :=  False; --in  case  no  in/out  parameters 

) 

id_list 
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inforinal_desc : 


DESCRIPTION_TOKEN  TEXT_TOKEN 


formal_desc : 

AXIOMS_TOKEN  TEXT_TOKEN 


type_iinpl : 

IMPLEMENT AT I ON_TOKEN  ADA_TOKEN  IDENTIFIER 

{ 

queryname . name ( 1 . . length) : =the_id_token ( 1 . . length) ; 
queryname . len : =length; 

} 

END„TOKEN 

I 

IMPLEMENTATION_TOKEN  type_name  op_impl_list  END_TOKEN 
$ 

op_impl_list : 

op_impl_list  OPERATOR_TOKEN  IDENTIFIER  operator_impl 


operator_impl : 

IMPLEMENTATION_TOKEN  ADA_TOKEN  IDENTIFIER 

{ 

queryname .  name  ( 1 .  .  length)  :  =the_id_to)cen  { 1 .  .  length)  ; 
queryname . len; = length; 

) 

END_TOKEN 

I 

IMPLEMENTATION_TOKEN  psdl_impl  END_TOKEN 
7 

psdl_impl : 

data_f low_diagrcim  streams  timers  control_constraints 

informal_desc 

t 

data_f low_diagram: 

GRAPH_TOKEN  vertex_list  edge_list 
/ 

vertex_list : 

vertex_list  VERTEX_TOKEN  op_id  optional_time 


edge_list : 

edge_list  EDGE_TOKEN  IDENTIFIER 
optional_time  op_id  ARROW  op_id 


op_id : 

IDENTIFIER  opt_arg 
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opt_arg : 


'  ( '  optional_id_list 
'  I  ■  optional_id_list  * )  ' 


optional_id_list : 

id_list 


optional_time : 


t  ime 


streams : 

DATA_TOKEN  STREAM_TOKEN  list_of_type_decl 


timers : 

TIMER_TOKEN  id_list 
I 

control_constraints : 

CONTROL_TOKEN  CONSTRAINTS_TOKEN  constraints 
/ 

constraints : 

constraints  OPERATOR_TOKEN  IDENTIFIER 
opt_trigger  opt_period  opt_f inish_within 
opt_mcp  opt_mrt  constraint_options 

1 

OPERATOR.TOKEN  IDENTIFIER 

opt_trigger  opt_period  opt_f inish_within 

opt_mcp  opt_mrt 

constraint_options : 

constraint_options  OUTPUT_TOKEN  id_list  IF_TOKEN 
expression  reqmts_trace 
I 

constraint_options  EXCEPT I ON_TOKEN  IDENTIFIER 
opt_if .predicate  reqmts_trace 
I 

constraint_options  timer_op  IDENTIFIER 
opt_if_predicate  reqmts_trace 
I 
/ 

opt_trigger : 

TRIGGERED_TOKEN  trigger  opt_if_predicate  reqmts_trace 
I 

trigger: 

BY_ALL_TOKEN  id_list 
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BY_SOME_TOKEN  id_list 


opt_period: 

PERIOD_TOKEN  time  reqmts_trace 


opt_f inish_within : 

FINISH_TOKEN  WITHIN_TOKEN  time  reqmts_trace 
I 

opt_mcp : 

MINIMUM_TOKEN  CALL_PERIOD_TOKEN  time  reqmts_trace 
I 

opt_mrt : 

max_resp_time  time  reqmts_trace 


max_resp_t ime : 

MAXIMUM_TOKEN  RESPONSE_TOKEN  TIME_TOKEN 
/ 

t imer_op : 

RESET_TOKEN 

I 

START.TOKEN 

I 

STOP_TOKEN 

t 

opt_if  _predicate: 

IF_TOKEN  expression 


initial_expression_list : 

initial_expression_list  ' , ‘  initial_expression 
I 

initial_expression 

$ 

initial_expression : 

TRUE 

I 

FALSE 

I 

INTEGER_LITERAL 

I 

REAL_LITERAL 

I 

STRING_LITERAL 

I 

IDENTIFIER 
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type_name  ' . '  IDENTIFIER 
I 

type_name  ' . ‘  IDENTIFIER  ' ( '  initial_expression_list  ' ) 

I 

' ( '  initial_expression_list  ' ) ‘ 

I 

initial_expression  log_op  initial_expression  %prec 
logical_operator 
I 

initial_expression  rel_op  initial_expression  %prec 
relat ional_operator 
I 

initial_expression  %prec  unary _adding_operator 
I 

initial_expression  %prec  unary _adding_operator 
I 

initial_expression  bin_add_op  initial_expression  %prec 
multiplying_operator 
I 

initial_expression  bin_mul_op  initial_expression  %prec 
mult iplying_operator 
I 

initial_expression  EXP_TOKEN  initial_expression  %prec 
highest_precedence_operator 
I 

NOT_TOKEN  initial_expression  %prec 
highest_precedence_operator 
I 

ABS_TOKEN  initial_expression  %prec 
highest_precedence_operator 
/ 

log_op : 

AND_TOKEN 

I 

OR_TOKEN 

I 

XOR_TOKEN 

rel_op : 

'<■  I  •>•  I  •=•  I  GREATER_THAN_OR_EQUAL 
I 

LESS_THAN_OR_EQUAL  I  INEQUALITY 
/ 

bin_add_op : 

•+•  1  1 


bin_mul_op : 


time : 


■  * ■  I  '  r  I  MOD_TOKEN  I  REM_TOKEN 
/ 

time_number  MICROSEC_TOKEN 
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I 

tiine_number  MS_TOKEN 
I 

time_nuinber  SEC_TOKEN 

I 

time_nuinber  MIN_TOKEN 

I 

tiine_number  HOURS_TOKEN 

time_number : 

INTEGER_LITERAL 

t 

expression_list ; 

expression_list  ' , '  expression 
1 

expression 


expression : 

TRUE  I  FALSE  I  INTEGER_LITERAL  I  time  I  REAL_LITERAL 
I  STRING_LITERAL  I  IDENTIFIER 
I  type_name  ‘ . '  IDENTIFIER 

I  type_naine  ' . '  IDENTIFIER  ' ( '  express ion_list  ' ) ' 

I  ' ( '  express ion_list  ' ) * 

I  expression  log_op  expression  %prec  logical_operator 
I  expression  rel_op  expression  %prec  relational_operator 
1  expression  %prec  unary _adding_operator 

I  expression  %prec  unary _adding_operator 
I  expression  bin_add_op  expression  %prec 
unary _add i ng_ope  ra tor 

I  expression  bin_mul_op  expression  %prec 
mult iplying_operator 

I  expression  EXP_TOKEN  expression  %prec 
highest_precedence_operator 

I  NOT_TOKEN  expression  %prec  highest_precedence_operator 
I  ABS_TOKEN  expression  %prec  highest_precedence_operator 


with  Text_io, query _tokens , query _goto, query_shif t_reduce, query_lex, 
query _aux_pkg ; 

use  Text_io, query _tokens , query _goto, query_shift_reduce, query_lex, 
query _aux_pkg ; 


package  queryparser  is 

procedure  Yyparse; 

echo  :  boolean  :=  false; 

number_of_errors  :  Natural  :=  0; 
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in_par 

out_par 

gen_par 

has_inputs 

has_outputs 

tmp_op_name 

len_name 

end  queryparser ; 


Boo lean:=False; 
Boolean : =False ; 
Boolean : =False ; 
Boolean : =False ; 
Boolean: =False; 
String { 1 . . 80 ) ; 
Integer : =0 ; 


package  body  queryparser  is 


procedure  Yyerror(s  :  in  string  :=  "syntax  error") 
begin 

nuinber_of_errors  ;=  number_of_errors  +  1; 
put  { " ***  " ) ; 
put_line (s) ; 
end  Yyerror; 

##%procedure_parse 

end  queryparser; 


is 
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E.  COMPONENT  AUX  PKG 


1.  COMPONENT_AUX_S.A 

--  ***  File  :  component_aux_s .a 

--  ***  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 

_ 

with  Text_Io; 
use  Text_Io; 

package  component_aux_pkg  is 

the_id_token  :  String ( 1 .. 80 ) ; 

length  :  Integer  :=1; 

has_in_pareim  :  Boolean  :=  False; 

has_out_param  :  Boolean  ;=  False; 

is_operator  :  Boolean  :=  False; 

is_adt  :  Boolean  :=  False; 

is_generic  :  Boolean  :=  False; 

--  Global  list  constructors 

--  These  variables  and  structures  will  hold  the  necessary  info 
--  to  construct  the  output  file(s) 

type  with_name  is 
record 

ncune  ;  String ( 1 .. 80 )  ; 
len  :  Integer :=0; 
end  record; 

type  in_parameter_list ; 

type  in_pareuneter_ptr  is  access  in_parcimeter_list  ; 
type  in_parameter_list  is 
record 

neune  :  String  ( 1 .. 80 )  ; 
len  :  Integer :=0; 
link  :  in_parauneter _ptr; 
end  record; 

type  out_paraumeter_list ; 

type  out_parauneter_ptr  is  access  out_parameter_list ; 
type  out_par^uneter_list  is 
record 

neune  :  Stringd.  .80)  ; 
len  :  Integer :=0; 
link  :out_parameter_ptr ; 
end  record; 
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type  in_paraineter_val_list ; 

type  in_paraineter_val_ptr  is  access  in_parameter_val_list ; 

type  in_parameter_val_list  is 
record 

name  :  String { 1 .. 80 )  ; 
len  :  Integer :=0; 
link  :  in_parameter_val_ptr ; 
end  record; 


type  out_parameter_val_list ; 

type  out_parameter_val_ptr  is  access  out_parcimeter_val_list 
type  out_parameter_val_list  is 
record 

name  :  String ( 1 .. 80 ) ; 
len  :  Integer :=0; 
link  :  out _parameter_val _ptr; 
end  record; 

type  gen_parameter_list ; 

type  gen_parameter_ptr  is  access  gen_parameter_list ; 
type  gen_parameter_list  is 
record 

param:  String ( 1 .  .80 )  ; 
val  :  Stringd.  .80)  ; 
link  :  gen_parameter_ptr; 
end  record; 


type  adt_operator_list ; 
type  adt_operator _ptr  is  access  adt_operator_list ; 


type  adt_operator_list  i 
record 
op_name 
has_inputs 
has_outputs 
op_in_par 
op_in_par_val 
op_out_par  : 
op_out_par_va 
link 

end  record; 


:  String ( 1 . . 80) ; 

:  Boolean : =False; 

;  Boolean: =False; 

:  in_pareuneter_ptr  ; 

in_parameter_val_ptr  ; 
out_parameter_ptr ; 

:  out_pararaeter_val_ptr ; 
:  adt_operator_ptr; 


withneune 

in_par_ptr 

out_par_ptr 

in  _par_val_ptr 

out_par_val_ptr 

gen_par_ptr 

adt_op_ptr 


with_neune ; 
in_parameter_ptr ; 
out_parameter_ptr  ; 
in_pareuneter_val_ptr ; 
out_parameter_val_ptr ; 
gen_parameter  _ptr; 
adt_operator_ptr ; 


95 


procedure  Put_in_paraineter  (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  in_pareimeter_ptr )  ; 

procedure  Put_out_paraineter (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  out_paran>eter_ptr)  ; 

procedure  Put_in_parameter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  in_parameter_val_ptr) 

procedure  Put_out_paraineter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  out_pareimeter_val_pt 

procedure  Put_gen_paraineter  ( Parm  :  in  String; 

Val  :  in  String; 

P_Len:  in  Integer; 

V_Len:  in  Integer; 

List  :  in  out  gen_paraineter_ptr )  ; 

procedure  Put_adt_op ( neune :  in  String; 

len  :  in  Integer; 

inputs, outputs  :  in  Boolean; 

List  :  in  out  adt_operator_ptr ) ; 

procedure  strlen(s:  in  String;  n:  in  out  Integer); 
end  component_aux_pkg ; 


2.  COMPONENT_AUX_B.A 

--  ***  File  :  component_aux_b.a 

--  **•  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 


with  Text_Io; 
use  Text_Io; 


package  body  component_aux_pkg  is 


procedure  Put_in_parameter  (Data:  in  String; 

Len  :  in  Integer; 

List:  in  out  in_parameter_ptr ) 


begin 


if  List  =  null  then 

List  :=  new  in_parameter_list; 
List .name ( 1 . .Len) : =Data ( 1 . .Len) ; 


is 


96 


List . len : =Len; 
List . link; =null ; 
else 


Put_in_paraineter  (Data,  Len,  List .  link)  ; 
end  if; 

end  Put_in_paraineter  ; 


procedure  Put_out_parameter (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  out_parameter_ptr )  is 

begin 

if  List  =  null  then 

List  :=  new  out_parciineter_list  ; 

List . name ( 1 . .Len)  : =Data ( 1 . .Len)  ; 

List . len: =Len; 

List . link: =null; 
else 

Put_out_parameter (Data, Len, List . link) ; 
end  if; 

end  Put_out_parcimeter  ; 


procedure  Put_in_parameter_val (Data:  in  String; 

Len  :  in  Integer; 

List:  in  out  in_parameter_val_ptr )  is 

begin 

if  List  =  null  then 

List  :=  new  in_pareimeter_val_list ; 

List .name ( 1 . .Len) : =Data ( 1 . .Len) ; 

List . len : =Len; 

List . link: =null ; 

else 

Put_in_parameter_val (Data, Len, List . link)  ; 

end  i f ; 

end  Put_in_parameter_val ; 


procedure  Put_out_parameter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  out_parameter_val_ptr )  is 

begin 

if  List  =  null  then 

List  :=  new  out_parauneter_val_list ; 

List  .n^une  ( 1 .  .Len)  :  =Data  ( 1 .  .Len)  ; 

List . len : =Len; 

List . link: =null ; 

else 
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Put_out _parameter_val (Data,  Len,  List . link)  ; 


end  i f ; 

end  Put_out_paraineter_val  ; 


procedure  Put_gen_pareuneter  ( Parra  : 

Val  : 
P_Len : 
V_Len : 
List  : 

begin 


in  String; 
in  String; 
in  Integer; 
in  Integer; 

in  out  gen_pararaeter_ptr ) 


is 


if  List  =  null  then 

List  :=  new  gen_pararaeter_list ; 

List .param( 1 . . P_Len) : =Parm( 1 . . P_Len) ; 

List .val { 1 . . V_Len) ; =Val ( 1 . .V_Len) ; 

List . link: =null ; 

else 

Put_gen_parameter (Parra, Val, P_Len, V_Len, List . link) ; 

end  if; 

end  Put_gen_parameter ; 


procedure  Put_adt_op  (  naime:  in  String; 

len  :  in  Integer; 

inputs , outputs  :  in  Boolean; 

List:  in  out  adt_operator_ptr )  is 

begin 

if  List  =  null  then 

List  :=  new  adt_operator_list ; 

List . op_name ( 1 . . len) : =  name ( 1 . . len) ; 

List .has_inputs :=inputs; 

List . has_outputs : =outputs ; 

List .op_in_par : =  in_par_ptr; 

List .op_in_par_val :=  in_par_val_ptr ; 

List . op_out_par : =out_par_ptr ; 

List . op_out_par_val : =out_par_val_ptr ; 

List . link: =null ; 

else 

Put_adt_op ( name , len, inputs, outputs, List . link) ; 

end  i f ; 

in_par_ptr : =null ; 
in_par_val_ptr : =null ; 
out_par_ptr : =null ; 
out  _par_va  l_pt  r  :  =nu  1  1  ; 
end  Put_adt_op ; 
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procedure  strlen(s:  in  String;  n:  in  out  Integer)  is 

I  :  Integer  : =  1 ; 
char : Character : = ' x ' ; 
endstr : Boolean ; =False ; 


begin 

while  endstr=False  loop 
begin 

char ; =s ( I )  ; 
I:=I+1; 


end  component_aux _pkg; 
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F.  COMPONENT  COMPOSE  PKG 


1.  COMPONENT_COMPOSE_S.A 

--  ***  File  :  component_compose_s .a 

--  ***  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 


with  text_io, component_aux_pkg; 
use  text_io, component_aux_pkg; 


package  component_compose_pkg  is 


inpar_ptr 

outpar  _ptr 

inparv _ptr 

outparv_ptr 

genpar_ptr 

adtop_ptr 

opin_par 

opin_parv 

opout_par 

opout_parv 

outf ile 

genf ile 

actual_val 

gen_found 


in_parameter_ptr ; 
out_paramet  er_pt  r ; 
in_parameter_val_ptr ; 
out  _parameter_val_ptr ; 
gen_parameter_ptr ; 
adt_operator_ptr ; 
i  n_pa  r  ame  t  e  r_p  t  r  ; 
in_paraineter_val_ptr  ; 
out_parameter_ptr  ; 
out_parameter_val_ptr ; 
f  ile_type; 
f ile_type; 
string  ( 1 . . 80 ) ; 

Boolean : =False ; 


procedure  non_generic_operator ; 
procedure  generic_operator ; 
procedure  non_generic_adt ; 
procedure  generic_adt; 


end  component_compose_pkg ; 


2.  COMPONENT_COMPOSE_B.A 

--♦♦♦File  :  component_compose_b . a 

--  ♦♦♦  Author  :  Dogan  Ozdemir 

--  ♦♦♦  Date  :  September  1992 


with  text_io, component_compose_pkg; 
use  text_io, component_compose_pkg ; 

package  body  component_compose_pkg  is 

procedure  non_generic_operator  is 
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begin 

create (out file, mode=>out_file, naine=>“ out file" ) ; 
create  (genf  ile,mode  =  >out_f  ile,  ncime=>“genf  ile" )  ; 
put (genf ile, “  "  J  ; 

put (outf ile, "with  “ ) ; 

put (outf ile, wit hname .name ( 1 . .withname . len) ) ; 
put (outf ile, " ; “ ) ; 
new_l ine ( out  f i le , 2 ) ; 
put (outf ile, "package  " ) ; 

put (out file, withname . name ( 1 . . (withname . len-3 ) ) )  ; 

put (outf ile, "_pkg  is"); 

new_line (outf ile,  2 ) ; 

put (outf ile, "  procedure  “ )  ; 

put  (outf  ile,  withncime  .  name  ( 1 .  .  (withname  .len-3  )  )  )  ; 

if  has_in_param  then 
put (outf ile , "  ( " 1 ; 

inpar_ptr:=  in_par_ptr; 
inparv_ptr:=  in_par_val_ptr ; 
while  inpar_ptr  /=  null  loop 
Put (outf ile, inpar_ptr .name) ; 
inpar_ptr : =inpar_ptr . link; 

Put (outf ile, “  ;  in  "); 

Put (out  file, inparv_ptr . name ( 1 . . inparv_ptr . len)  ) 
inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (outf ile, " ; " ) ; 

new_line (outf ile) ; set_col (outf ile,  13 ) ; 

else 

if  has_out_pareim  then 
Put (outf ile, ";"); 
new_l ine (outf ile) ; 
set_col (outf ile,  13  )  ; 
exit  ; 

else 

Put (outf ile, "  ) " )  ; 
new_line (outf ile) ; 
end  i f ; 
end  if; 
end  loop ; 
end  if; 

if  has_out_param  then 
if  has_in _param  then 
null  ; 
else 

put (outf ile, * ( " )  ; 
end  i f ; 

outpar_ptr:=  out_par_ptr; 
outparv_ptr : =  out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 
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Put (outf ile, outpar_ptr .name ( 1 . .outpar_ptr . len)  ) ; 
outpar_ptr:=  outpar_ptr . link; 

Put (outf ile, "  :  out  " ) ; 

Put (outf ile, outparv_ptr .name ( 1 . .outparv_ptr . len)  ) ; 
outparv_ptr : =outparv_ptr . link; 
if  outpar_ptr  /=  null  then 
Put (outf ile,  "  ;  " )  ; 

new_line (outf ile) ; set_col (outf ile,  13 )  ; 
else 

Put (outf ile,  “  )"); 
new_line (outf ile) ; 
end  if; 
end  loop; 
end  i f ; 

new_line (outf ile) ; 
put (outf ile, "  renames  "); 
put  (outfile,withname.ncime)  ; 
put (outf ile, “  .  " )  ; 

put (outf ile, withname .name ( 1 . . (withname. len-3 ) ) ) ; 
put ( out  f i le , “ ;  " )  ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "end  “); 

put  (outf  ile,  withname  .naune  ( 1 .  .  (withneime .  len-3  )  )  )  ; 
put  (outf  ile,  ''_pkg;  “ )  ; 
close (outf ile)  ; 
end  non_generic_operator ; 


procedure  generic_operator  is 
begin 

create (outf ile, mode=>out_f ile, naune=>" out file" ) ; 
create (genf ile, mode=>out_f ile, name=>" gen file" ) ; 
put (genf ile, "generic" ) ; 
put (outf ile, "with  "); 

put  (outf  ile,  withnaune  .name  ( 1 .  .withnaune .  len)  )  ; 
put (outf ile,  ";*); 
new_line (outf ile,  2) ; 
put (outf ile, "package  "); 

put  (outf  ile,  withnaune  .naune  ( 1 .  .  (withnaune .  len-3 )  )  )  ; 
put (outf ile, •_pkg  is"); 
new_line (outf ile,  2)  ; 

--At  this  point  we  need  actual  values  of  generic  units  for 
instantiation . 

--This  part  of  code  is  commented  out  for  reference. 

- -genpar_ptr : =gen_par_ptr ; 

--while  genpar_ptr  /=  null  loop 

--put  ("Enter  actual  parauneter  for  generic  <"); 

--put  (genpar_ptr . naune ( 1 . .genpar_ptr . len)  ); 
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--put  (">  :  "); 

--get_line (actual_val , length) ; 

--component_aux_pkg . Put_gen_parameter_val 

(actual_val, length, gen_par_val_ptr ) ; 

--new_line; 

--genpar_ptr : =genpar_ptr . link; 

--end  loop; 

--now  continue  with  instantiation 
put (out file, "  package  tmp_“ ) ; 

put ( out  file , withname . name ( 1 . . (withname . len-3 ))); 
put  (out  file, ''_pkg  is  new  "); 

put  ( out  file ,  withncime  .  name  ( 1 .  .withname  .  len)  )  ; 
put (outfile, "  (  "); 

genpar_ptr :  =:gen_par_ptr  ; 
while  genpar_ptr  /=  null  loop 
Put (outfile,genpar_ptr .val) ; 
if  genpar_ptr . link  /=  null  then 
Put (outfile, ",  “ ) ; 

end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

put (outfile, "  );“); 
new_line (outfile,  2 )  ; 

--now  rename 

put (outfile, “  procedure  “); 

put (outfile, withname . neune ( 1 . . (withname . len-3 ) ) ) ; 

if  has_in_param  then 
put (outfile, "  ("); 

inpar_ptr:=  in_par_ptr; 
inparv_ptr:=  in_par_val_ptr ; 
while  inpar_ptr  /=  null  loop 

Put (outfile, inpar_ptr .name ( 1 . . inpar_ptr . len)  ) ; 

Put (outfile, "  :  in  "); 
inpar_ptr : =inpar_ptr . link; 

genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

if  inparv_ptr .neune  =  genpar_ptr .pareun  then 
Put (outfile, genpar_ptr .val) ; 
gen_f ound : =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar _ptr.link; 
end  loop; 

if  gen_found=False  then 

Put (outfile, inparv_ptr .neune (1 . . inparv_ptr . len)  ) 
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end  i f ; 

gen_f ound : =False ; 

inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (outf ile,  " ;  " )  ; 
new_line (outf ile) ; 
set_col (outf ile,  13  )  ; 

else 

if  has_out_param  then 
Put (outf ile, 
new_line (outf ile) ; 

set_col (outf ile, 13 ) ; 
exit  ; 

else 

Put (outf ile, "  )"); 
new_line (outf ile)  ; 

end  if; 
end  i f ; 
end  loop; 
end  if; 

if  has_out_param  then 
if  has_in_parain  then 
null  ; 

else 

put (outf ile, " ( " ) ; 
end  if; 

outpar_ptr:=  out_par_ptr; 
outparv_ptr : =  out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 

Put (outf ile, outpar_ptr .name ( 1 . .outpar_ptr . len)  ) ; 
outpar_ptr:=  outpar_ptr.link; 

Put (outf ile,  "  :  out  "); 

genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

if  outparv_ptr .name  =  genpar_ptr .param  then 
Put (out file, genpar_ptr.val) ; 
gen_f ound : =True ; 
exit; 
end  i f ; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

if  gen_found=False  then 

Put (outf ile, outparv_ptr .n2une( 1 . .outparv_ptr . len)  ) 
end  i f ; 

gen_f ound : =False  ; 

outparv_ptr : =outparv_ptr . link; 
if  outpar_ptr  /=  null  then 


Put (outf ile,  "  ;  "  )  ; 
new_line (out file) ; 
set_col (outf ile, 13  )  ; 
else 

Put (outf ile, "  )“); 
new_line (outf ile) ; 
end  i f ; 
end  loop; 
end  if; 

new_line (outf ile) ; 
put (outf ile,  "  renames  tmp_" ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg. “ ) ; 

put (outf ile, withname . name ( 1 . . (withname .len-3 ) ) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile,  2  )  ; 
put (outf ile, “end  “); 

put  (outf  ile,  withneime . name  ( 1 .  .  (withname .  len-3  )  )  )  ; 
put (outf ile,  "_pkg; “ )  ; 
close (outf ile)  ; 
end  generic_operator ; 


procedure  non_generic_adt  is 
begin 

create (outf ile, mode=>out_f ile, name=>" out file" ) ; 
create (genf ile, mode=>out_f ile, neume=>"genf ile" ) ; 
put (genf ile, "  " ) ; 

put (outf ile, "with  " )  ; 

put (outf ile, withneune .name ( 1 . .withname . len) ) ; 
put (outf ile,  " ;  " )  ; 
new_line (outfile,  2)  ; 
put (outf ile, "package  " ) ; 

put  (outf  ile,  withname. neuii^  ( 1 . .  (withneune.  len-3  ))); 
put (outf ile, "_pkg  is"); 
new_line (outfile,  2 )  ; 

adtop_ptr ; =adt_op_ptr ; 
while  adtop_ptr  /=  null  loop 
put (outf ile, "  procedure  "); 

Put (outf ile, adtop_ptr .op_name) ; 

if  adtop_ptr .has_inputs  then 
put (outfile, "  ( " )  ; 
opin_par ; =adtop_ptr .op_in_par; 
opin_parv: =adtop_ptr . op_in _par_val ; 
while  opin_par  /=  null  loop 
put (outf ile, opin_par .name) ; 
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opin_par : =opin_par . link; 

Put (outf ile, "  :  in  “ ) ; 

--generic  par  check  is  to  go  here 
put (outf ile, opin_parv. name) ; 
opin_parv: =opin_parv. link; 
if  opin_par  /=  null  then 

Put (outf ile,  " ;  "  )  ; 
new_line (outf ile)  ; 
set_col (outf ile, 13 ) ; 

else 

if  adtop_ptr .has_outputs  then 
Put (outf ile, “;“); 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 
exit  ; 

else 

Put (outf ile, •  )"); 
new_line (outf ile) ; 

end  i f ; 
end  if; 
end  loop; 
end  if; 

if  adtop_ptr .has_outputs  then 

if  adtop_ptr .has_inputs  then 
null  ; 

else 

put (outf ile, " ( " ) ; 
end  if; 

opout_par : =adtop_ptr . op_out_par ; 
opout_parv : =adtop_ptr . op_out_par_val ; 
while  opout_par  /=  null  loop 
Put (outf ile, opout _par .name) ; 
opout_par : =opout _par . link; 

Put (outf ile, “  :  out  “); 
put (outfile, opout_parv.n^une) ; 
opout_parv : =opout_parv . 1 ink ; 
if  opout_par  /=  null  then 

Put ( out  file, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 

else 

Put (outf ile, “  )"); 
new_line (outf ile)  ; 

end  if; 
end  loop; 
end  if; 

new_line (outf ile) ; 
put (outf ile, *  renames  "); 
put  (outf  ile,  withname.neune)  ; 
put (outf ile, " . " ) ; 
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put  (outf  ile,  adtop_ptr  .op_naine)  ; 
put ( out  f i le , " ; " ) ; 
new_l ine ( out  f i le , 2 ) ; 
adtop_ptr : =adtop_ptr . link; 
end  loop; 

put (outf ile, "end  "); 

put ( out f i le, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile)  ; 

end  non_generic_adt ; 


procedure  generic_adt  is 
begin 

create  (out  f  i  le ,  mode=>out_f  ile ,  neiine=>"  out  file" )  ; 
create(genfile,mode=>out_file,name=>“genfile" ) ; 
put(genfile, “generic") ; 
put (outf ile, "with  "); 

put  ( out  file,  withname .  ncime  ( 1 .  .  withnaime .  len )  )  ; 
put (outf ile,  ";"); 
new_line (outf ile, 2 ) ; 
put (outf ile, "package  "); 

put (out file, withname. name ( 1 . . (withname. len-3 ))); 
put (outf ile, "_pkg  is"); 
new_line (outf ile, 2 ) ; 

put (outf ile, “  package  tmp_“ ) ; 

put (outf ile, withname .naune ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg  is  new  "); 

put  (outf  ile,  withneume .name  ( 1 .  .withn^une .  len)  )  ; 
put (outf ile, "  (  " )  ; 

genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
Put (outf ile, genpar_ptr.val) ; 
if  genpar_ptr . link  /=  null  then 
Put (outf ile, ",  " ) ; 
end  if; 

genpar_ptr ; =genpar_ptr . link; 
end  loop; 

put (outf ile, “  );"); 
new_line (outf ile, 2)  ; 

--now  rename 

adtop_ptr : =adt_op_ptr ; 
while  adtop_ptr  /=  null  loop 
put (outf ile, "  procedure  *); 
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Put (outf ile, adtop _ptr . op_name) ; 

if  adtop_ptr .has_inputs  then 
put (outf ile, "  { “ ) ; 
opin_par : =adtop_ptr .op_in_par; 
opin_parv: =adtop_ptr .op_in_par_val ; 
while  opin_par  /=  null  loop 
put (outf ile, opin_par .name) ; 
opin  _par : =opin_par . link; 

Put (outf ile, “  :  in  “ ) ; 

--generic  par  check  is  to  go  here  for  generic  proc 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

if  opin_parv.name=genpar_ptr .param  then 
Put (outfile,genpar_ptr .val) ; 
gen_f ound : =True ; 

exit  ; 

end  i f ; 

genpar_ptr:=genpar_ptr . link; 

end  loop; 

if  gen_found=False  then 

put (outf ile, opin_parv.naune) ; 
end  i  f  ; 

gen_f ound : =False  ; 

opin_parv: =opin_parv. link; 
if  opin_par  /=  null  then 

Put (outf ile, • ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile,  13 )  ; 

else 

if  adtop_ptr .has_outputs  then 
Put ( out  file, " ; " ) ; 
new_line (outf ile)  ; 
set_col (outf ile,  13 )  ; 
exit  ; 

else 

Put (outf ile, •  ) ■ ) ; 
new_line (outf ile)  ; 
end  if; 

end  i£; 
end  loop; 
end  if; 

if  adtop_ptr .has_outputs  then 

if  adtop_ptr .has_input3  then 
null  ; 

else 

put (outf ile, ■ ( " ) ; 
end  i f ; 

opout_par : =adtop_ptr . op_out_par ; 
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opout_parv: =adtop_ptr .op_out_par_val ; 
while  opout_par  /=  null  loop 
Put (out file, opout_par.ncune) ; 
opout_par : =opout_par . link; 

Put (outf ile, "  :  out  " ) ; 

--generic  par  check 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
if  opout_parv.name=genpar_ptr .param  then 

Put (outf ile, genpar_ptr -val ) ; 
g6n_f ound : =True ; 
exit ; 

end  i f ; 

genpar_ptr : =genpar_ptr . link; 

end  loop ; 

if  gen_found=False  then 

put  (outf ile, opout_parv.ncuiie)  ; 
end  i f ; 

gen_f ound : =False ; 

opout_parv: =opout_parv. link; 
if  opout_par  /=  null  then 
Put (outf ile, 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 

else 

Put  (outf  ile,  “  )  ■• )  ; 
new_line (outf ile)  ; 

end  if; 
end  loop; 
end  i f ; 

new_line (outf ile) ; 

put (outf ile, “  renames  tmp_" ) ; 

put (outf ile, withname .name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg ."); 
put (outf ile, adtop_ptr .op_name) ; 
put (outf ile, ";■); 
new_line(outfile,2) ; 
adtop_ptr : =adtop_ptr . link; 
end  loop; 

put (outf ile, 'end  *); 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 

end  generic_adt; 

end  component_compose_pkg; 
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G.  COMPONENT  PARSE.A 


--  ***  File 
--  ***  Author 
--  ***  Date 


component_parse . a 
Dogan  Ozdemir 
September  1992 


with  u_env, component_parser, psdl_lex_io,  psdl_lex, text_io, 
component_aux_pkg , component_compose_pkg ; 
use  u_env, component_parser , text_io, component_aux_pkg, 
coraponent_compose_pkg; 

procedure  parse  is 

last  : integer : =0 ; 

begin 

if  u_env.Argc  =  2  then 
strlen ( Argv( 1) . S, last ) ; 

psdl_lex_io  .open_input  (Argv  ( 1 )  .  S  ( 1 .  .  last )  )  ; 
psdl_lex_io . create_output ; 

yyparse; 

psdl_lex_io . close_input ; 
psdl_lex_io . close_output ; 

if  is_generic  and  is_operator  then 

component_compose_pkg . gener ic_operator ; 
elsif  is_generic=False  and  is_operator  then 
component_compose_pkg . non_generic_operator ; 
elsif  is_generic  and  is_adt  then 
gener ic_adt ; 

elsif  is_generic=False  and  is_adt  then 
non_generic_adt ; 
end  if; 

else 

put_line ( "Wrong  number  of  arguments’); 
end  if; 

end  parse; 
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H.  QUERY_AUX_PKG 

1,  QUERY_AUX_S.A 


--  ***  File 
--  ***■  Author 
--  *•*  Date 


:  query_aux_s .a 
:  Dogan  Ozdemir 
:  September  1992 


with  Text_Io; 
use  Text_Io; 

package  query _aux_pkg  is 


the_id_token  :  String ( 1 .. 80 ) ; 

length  :  Integer :=1; 


query  _has_in_par2UB 

:  Boolean 

:=  False 

qu  e  ry_ha  s_ou  t  _pa  r am 

:  Boolean 

:=  False 

query_is_operator 

:  Boolean 

:=  False 

query_is_adt 

:  Boolean 

:=  False 

query_is_generic 

:  Boolean 

:=  False 

--  Global  list  constructors 

--  These  variables  and  structures  will  hold  the  necessary  info 
--to  construct  the  output  file(s) 


type  query_neune  is 
record 

name  :  String ( 1 .. 80 ) ; 
len  :  Integer :=0; 
end  record; 

type  query_in_parauneter_list ; 

type  query_in_parameter_ptr  is  access 

query_in  _par2uneter_l  ist  ; 

type  query_in_paraineter_list  is 
record 

neune  :  String  ( 1 ..  80 )  ; 
len  :  Integer :=0; 
link  :  query_in_parameter_ptr ; 
end  record; 

type  query _out _parauneter_list ; 

type  query _out_paraineter_ptr  is  access 

query_out  _parameter_list ; 

type  query _out_parauneter_l is t  is 
record 

naune  ;  String  ( 1  ..80); 
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len  :  Integer :=0; 
link  :  query_out_parameter_ptr ; 
end  record; 


type  query_in_paraineter_val_list  ; 

type  query_in_paraineter_val_ptr  is  access 

query_in  _parameter_val_list ; 
type  query_in_parameter_val_list  is 
record 

name  :  String ( 1 80 )  ; 
len  :  Integer :=0; 

link  :  query_in_parameter_val_ptr ; 
end  record; 


type  query_out_param\eter_val_list ; 

type  query_out_parcimeter_val_ptr  is  access 

query _out_parameter_val_list ; 
type  query_out_parcuneter_val_list  is 
record 

name  :  String ( 1 .. 80 ) ; 
len  :  Integer :=0; 

link  :  query_out_parameter_val_ptr ; 
end  record; 


type  query_gen_parameter_list ; 

type  query _gen_parameter_ptr  is  access 

query _gen_parameter_list ; 

type  query _gen_parameter_list  is 
record 

param:  String ( 1 .. 80 ) ; 
val  :  String ( 1 .. 80 ) ; 
link  :  c[uery_gen_parameter_ptr; 
end  record; 


type  query_adt_operator_list ; 

type  query _adt_operator_ptr  is  access 

query _adt_operator_l is t ; 


type  query _adt_operator_l is t  is 
record 
op_name 
has_inputs 
has_outputs 
op_in_par 
op_ i n_par_va 1 
op_out  _par 


String ( 1 . . 80 ) ; 

Boolean : =False ; 

Boolean : =False ; 
query_in_pareuneter_ptr  ; 
query_in_pareuneter_val_ptr ; 
query_out_pareuneter_ptr; 
op_out_par_val :  query _out _pareuneter_val_ptr ; 
link  :  query _adt_operator_ptr ; 

end  record; 
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queryname 

que ry_ i n_par_pt r 

query_out_par_ptr 

qu  e  ry _ i n_pa r _va l_p t  r 

query _out_par_val_ptr 

query_gen_par_ptr 

query_adt_op_ptr 


query_name; 

query_in_paramster_ptr ; 
query  _out  _pareimecer_ptr  ; 
query_in_parameter_val_ptr ; 
query _out_parameter_val_ptr ; 
query_gen_parameter_ptr; 
query_adt_operator_ptr ; 


procedure  Put_in_paraineter  (Data:  in  String; 

Len  :  in  Integer; 

List:  in  out  query_in_parameter_ptr ) 

procedure  Put_out_parameter ( Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  query _out_parameter_ptr ) ; 

procedure  Put_in_parameter_val {Data:  in  String; 

Len  :  in  Integer; 

List:  in  out  query_in_paraineter_val_ptr ) 

procedure  Put_out_paraaneter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  query _out_paraineter„val_ptr); 


procedure  Put_gen_parcin\eter (Parm:  in  String; 

Val  :  in  String; 

P_Len:  in  Integer; 

V_Len :  in  Integer ; 

List:  in  out  query _gen_para]neter_ptr )  ; 

procedure  Put_adt_op (name :  in  String; 

len  :  in  Integer; 

inputs, outputs  :  in  Boolean; 

List  :  in  out  query_adt_operator_ptr ) ; 

procedure  strlen(s:  in  String;  n:  in  out  Integer); 

end  query _aux_pkg; 
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2.  QUERY_AUX_B.A 


--  ***  File  :  query_aux_b.a 

--  ***  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 

with  Text_Io; 
use  Text_Io; 

package  body  query _aux_pkg  is 

procedure  Put_in_parameter  (Data:  in  String; 

Len  :  in  Integer; 

List:  in  out  query_in_parameter_ptr )  is 

begin 

if  List  =  null  then 

List  :=  new  query_in_parauneter_list ; 

List . name ( 1 . . Len ) : =Data ( 1 . .Len) ; 

List . len : =Len; 

List . link : =null ; 
else 

Put_in_parameter (Data, Len, List .link) ; 
end  i f ; 

end  Put_in_parameter ; 

procedure  Put_out_parameter (Data ;  in  String; 

Len  :  in  Integer; 

List:  in  out  query _out_parameter_ptr )  is 

begin 

if  List  =  null  then 

List  :=  new  query_out_parameter_list ; 

List .name ( 1 . .Len) : =Data ( 1 . .Len) ; 

List . len : =Len; 

List . link:=null; 
else 

Put_out_par2uneter (Data, Len, List . link) ; 
end  i f ; 

end  Put_out_parameter ; 


procedure  Put_in_parameter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  query_in_pareuneter_val_ptr )  is 

begin 

if  List  =  null  then 
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List  :=  new  query_in_parameter_val_l ist ; 
List . name ( 1 . . Len) : =Data ( 1 . .Len) ; 

List . len : =Len ; 

List . link;=null; 
else 

Put_in_parameter_val (Data, Len,  List . link) ; 
end  if; 

end  Put_in_parameter_val ; 


procedure  Put_out_parameter_val (Data :  in  String; 

Len  :  in  Integer; 

List:  in  out  query _out_parameter_val_ptr i  is 

begin 

if  List  =  null  then 

List  :=  new  query_out _parameter_val_1 ' -t ; 

List . name ( 1 . . Len) : =Data ( 1 . .Len) ; 

List . len : =Len ; 

List . link: =null ; 
else 

Put_out_parameter_val (Data , Len, List . link) ; 
end  if; 

end  Put_out_parameter_val ; 


procedure  Put_gen_parcuneter ( Parm  :  in  String; 

Val  :  in  String; 

P_Len:  in  Integer; 

V_Len:  in  Integer; 

List  :  in  out  query_gen_parameter_ptr )  is 

begin 

if  List  =  null  then 

List  :=  new  query_gen_pareuneter_list ; 

List  .parain(  1 .  .  P_Len)  :  =Parm(  1 .  .  P_Len)  ; 

List.vaKl.  .V_Len)  :=Vai(l.  .V_Len)  ; 

List . link: =null ; 
else 

Put_gen_paraineter ( Parm, Val , P_Len, V_Len, List . link) ; 
end  i f ; 

end  Put_gen_parameter ; 


procedure  Put_adt_op ( name :  in  String; 

len  :  in  Integer; 

inputs, outputs  :  in  Boolean; 

List  :  in  out  query _adt _operator_ptr )  is 


begin 

if  List  =  null  then 

List  :=  new  query _adt_operator_list; 

List  .op_naine  ( 1 .  .  len)  :  =  name  ( 1 .  .  len)  ; 

List . has_inputs : =inputs ; 

List . has_outputs : =outputs ; 

List .op_in_par : =  query_in_par_pLr ; 

List .op_in_par_val : =  query_in_par_val_ptr ; 

List . op_out_par : =query_out_par_ptr ; 

List . op_out_par_val : =query_out_par_val_ptr ; 
List . link : =null ; 
else 

Put_adt_op ( name , len, inputs, outputs, List . link) ; 
end  if; 

query_in_par_ptr : =null ; 
query_in_par_val_ptr : =null ; 
query _out_par_ptr : =null; 
query_out_par_val_ptr : =null; 
end  Put_adt_op ; 


procedure  strlen(s:  in  String;  n:  in  out  Integer)  is 

I  :  Integer  :=  1; 
char : Character : = ‘ x ' ; 
endstr : Boolean : =False ; 

begin 

while  endstr=False  loop 
begin 

char : =s ( I )  ; 

I:=I+1; 

exception 

when  constraint_error  =>  endstr : =True; 

end; 

end  loop ;  , 

n;=  I-l; 
end  strlen; 


end  query_aux_pkg; 
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L 


QUERY_COMPOSE_PKG 

1.  QUERY_COMPOSE_S.A 


--  ***  File  :  query_compose_s . a 

--  **■*  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 


with  text_io, query _aux_pkg, component_aux_pkg; 
use  text_io, guery_aux_pkg, component_aux_pkg; 


package  query_compose_pkg  is 


inpar_ptr 

outpar_ptr 

inparv__ptr 

outparv_ptr 

genpar_ptr 

adtop_ptr 

r_adtop_ptr 

opin_par 

opin_parv 

opout_par 

opout_parv 

out  file 

genf ile 

actual_val 

gen_found 


query_in_parameter  _ptr; 
query _out  _parameter_ptr ; 
query_in_parameter_val_ptr  ; 
query_out_parameter_val_ptr; 
gen_parameter_ptr ; 
query _adt_operator_ptr ; 
adt_operator_ptr ; 
query_in_parameter_ptr ; 
query_in_parameter_val_ptr; 
query_out_parameter_ptr ; 
query_out_parameter_val_ptr; 
f ile_type; 
f  ile_type; 
string  ( 1 . . 80) ; 

Boolean : =False; 


procedure  non_generic_operator ; 
procedure  generic_operator ; 
procedure  non_generic_adt ; 
procedure  generic_adt ; 


end  query _compose_pkg; 


2.  QUERY_COMPOSE_B.A 

***  File  :  query_compose_b.a 

--  ***  Author  :  Dogan  Ozdemir 

--  ***  Date  :  September  1992 


with  text_io, query _compose_pkg; 
use  text_io, query_compose_pkg; 

package  body  query_compose_pkg  is 

procedure  non_generic_operator  is 
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begin 

create  toutf ile,mode=>out_f ile, name=>“ out file" ) ; 
create (genf ile, mode=>out_f ile, name=>“genf ile" ) ; 
put (genf ile, "  " ) ; 

put (outf ile, "with  “); 

put (outf ile, withncune .name ( 1 . .withname . len) ) ; 
put (outf ile, 
new_line (outf ile, 2) ; 
put (outf ile, "package  " )  ; 

put (outf ile, query name .name ( 1 . .queryname . len ) ) ; 

put (outf ile, "_pkg  is"); 

new_line (outf ile,  2)  ; 

put (outf ile, “  procedure  "); 

put ( out  file, queryname . name ( 1 . . queryname . len ) ) ; 

if  query _has_in_parcm>  then 
put (outf ile, “  ( " ) ; 
inpar_ptr:=  query_in_par_ptr ; 
inparv_ptr:=  query_in_par_val_ptr ; 
while  inpar_ptr  /=  null  loop 
Put  (outf  ile,  inpar_ptr  .neime)  ; 
inpar_ptr : =inpar_ptr . link; 

Put (outf ile,  "  :  in  " )  ; 

Put (outf ile, inparv_ptr .naune ( 1 . . inparv_ptr . len)  ) ; 
inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (outf ile, “;“); 

new_line (outf ile) ;  set_col (outf ile, 13 ) ; 

else 

if  query _has_out_parcLm  then 
Put (outf ile, " ; " ) ; 

new_line (outfile) ;  set_col (outf ile, 13 ) 
exit ; 

else 

Put (outfile, "  )"); 
new_line (outf ile) ; 

end  i f ; 
end  i f ; 
end  loop; 
end  i f ; 

if  query _has_out _pareun  then 
if  query _has_in_param  then 
null  ; 

else 

put (outfile, " ( " ) ; 
end  if; 

outpar_ptr;=  query_out_par_ptr ; 
outparv_ptr : =  query _out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 

Put (outf ile, outpar_ptr .name ( 1 . .outpar_ptr . len)  ) ; 
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outpar_ptr:=  outpar_ptr.link; 

Put (outf ile, ■  ;  out  ”); 

Put (outf ile, outparv_ptr .name ( 1 . . outparv_ptr . len) ) ; 
outparv_ptr:=outparv_ptr. link; 
if  outpar_ptr  /=  null  then 
Put (outf ile, 

new_line (outf ile) ; set_col (outf ile, 13 ) ; 

else 

Put (outf ile, "  )  " )  ; 
new_line (outf ile) ; 
end  i f ; 
end  loop; 
end  i f ; 

new_line (outf ile) ; 
put (outf ile, "  renames  "); 
put (outf ile, withname. name) ; 
put (outf ile, “ . " ) ; 

put (outf ile, withname .name ( 1 . . (withname. len-3 ) ) ) ; 
put (outf ile, “;“); 
new_line (outf ile,  2)  ; 
put (outf ile, “end  "); 

put  (outf  ile,  queryneune .  name  ( 1 .  .queryneune .  len)  )  ; 
put (outf ile, “_pkg; “ )  ; 
close (outf ile) ; 
end  non_generic_operator ; 


procedure  generic_operator  is 
begin 

create (outf ile, mode=>out_f ile, n2une=>"outf ile" ) ; 
create (genf ile, mode=>out_f ile, name=>’genf ile" ) ; 
put (genf ile, "generic" ) ; 
put (outf ile, "with  "); 

put (outf ile, withname .name ( 1 . .withname. len) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile,  2 )  ; 
put (outf ile, "package  " ) ; 

put (outf ile, queryneune .name ( 1 . .queryname . len) ) ; 
put (outf ile, ■_pkg  is"); 
new_line(outfile,2)  ; 

--At  this  point  we  need  actual  values  of  generic  units  for 
instantiation . 

--now  continue  with  instantiation 

put (outf ile, "  package  tmp_"); 

put (outf ile, queryname .n6une ( 1 . .queryname . len) ) ; 

put (outf ile, "_pkg  is  new  "); 
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put (outf ile, withneune .name ( 1 . .withname . len) ) ; 
put (outf ile, "  (  " ) ; 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
Put (outf ile, genpar_ptr.val) ; 
if  genpar_ptr . link  /=  null  then 
Put (outf ile, “ ,  " ) ; 
end  if; 

genpar  _ptr : =genpar_ptr . link; 
end  loop; 

put (outf ile, “  ) ; “ ) ; 
new_line (outf ile,  2)  ; 

--now  rename 

put (outf ile, "  procedure  “); 

put (outf ile, queryname . name ( 1 . .queryname .len) ) ; 

if  query_has_in_param  then 
put (outf ile, "  ( " ) ; 

inpar_ptr : =  query_in_par_ptr ; 
inparv_ptr:=  query_in_par_val_ptr; 
while  inpar_ptr  /=  null  loop 

Put (outf ile, inpar_ptr .name ( 1 . . inpar_ptr . len)  ) ; 
Put (outf ile, “  :  in  “); 
inpar_ptr : =inpar_ptr . link; 

genpar_ptr : =gen_par_ptr; 
while  genpar_ptr  /=  null  loop 

if  inparv_ptr .naune  =  genpar_ptr .param  then 
Put (outf ile, genpar_ptr .val) ; 
gen_f ound : =True ; 
exit ; 

end  i f ; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

if  gen_found=False,  then 

Put (outf ile, inparv_ptr .name ( 1 . . inparv_ptr . len)  ) 
end  if; 

gen_f ound ; =False ; 

inparv_ptr:=  inparv_ptr . link; 
if  inpar_ptr  /=  null  then 
Put (outf ile, ■ ;  ■ )  ; 
new_l ine ( out  f i le ) ; 

3et_col (outf ile, 13 )  ; 
else 

if  query _has_out_param  then 
Put (outf ile, " ; " ) ; 
new_l ine (outf ile) ; 
set_col (outf ile, 13 ) ; 
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else 


exit  ; 


Put (outf ile, “  ) “ )  ; 
new_line (outf ile) ; 

end  if; 
end  i f ; 
end  loop; 
end  i f ; 

if  query _has_out_param  then 
if  query _has_in_parani  then 
null  ; 

else 

put (outf ile, " { ■ )  ; 
end  i f ; 

outpar_ptr:=  query _out_par_ptr; 
outparv _ptr : =  query _out_par_val_ptr ; 
while  outpar_ptr  /=  null  loop 

Put (outf ile, outpar_ptr .neune ( 1 . .outpar_ptr . len)  ) ; 
outpar_ptr:=  outpar_ptr.link; 

Put (outf ile, "  :  out  “); 

genpar_ptr : =gen_par_ptr ; 

while  genpar_ptr  /=  null  loop 

if  outparv_ptr .nauT\e  =  genpar_ptr .par^uT\  then 
Put (outf ile, genpar_ptr.val) ; 
gen_f ound ; =True ; 
exit  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

if  gen_found=False  then 

Put (outf ile, outparv_ptr .name ( 1 . .outparv_ptr . len)  ) 
end  if; 

gen_f ound : =False ; 

outparv_ptr :  =outparv_ptr .  link;- 
if  outpar_ptr  /=  null  then 
Put ( out  f i le , • ; • )  ; 
new_line (outf ile) ; 
set_col (outf ile,  13 )  ; 

else 

Put (outf ile, "  )"); 
new_line (outf ile) ; 
end  if; 
end  loop ; 
end  i f ; 

new_line (outf ile)  ; 
put (outf ile, “  renames  tmp_*); 

put  (outf  ile,  queryneune  .neune  ( 1 .  .queryname.  len)  )  ; 
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put (outf ile, “_pkg. " ) ; 

put (outf ile, withname .name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, 
new_line (outf ile,  2)  ; 
put (outf ile, "end  " )  ; 

put (outf ile, queryname . name ( 1 . .queryname . len) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 
end  generic_operator ; 


procedure  non_generic_adt  is 
begin 

create(outfile,mode=>out_file,name=>“outfile" ) ; 
create  (genf  ile,  mode=>out_f  ile,  naut\e=>“genf  ile" )  ; 
put (genf ile, “  “ )  ; 

put (outf ile, "with  " ) ; 

put  (outf  ile,  withn2une  .ncune  ( 1 .  .withname .  len)  )  ; 
put (outf ile,  ";"); 
new_line (outf ile,  2) ; 
put (outf ile, "package  " )  ; 

put  ( out  file,  querynaune .  neune  ( 1 . .  queryneune .  len )  )  ; 
put (outf ile, "_pkg  is"); 
new_line (outf ile,  2)  ; 

adtop_ptr : =query_adt_op_ptr ; 
r_adtop_ptr : =  adt_op_ptr ; 
while  adtop_ptr  /=  null  loop 
put (outf ile, "  procedure  "); 

Put (out file, adtop_ptr.op_naune) ; 

if  adtop_ptr .has_inputs  then 
put (outf ile, ■  ( " ) ; 
opin_par ; =adtop_ptr . op_in_par; 
opin_parv: =adtop_ptr .op_in_par_val ; 
while  opin_par  /=  null  loop 
put  (out file, opin_par. neune)  ; 
opin_par : =opin_par . link; 

Put (outf ile, "  :  in  "); 
put (outf ile, opin_parv, neune) ; 
opin_parv: =opin_parv. link; 
if  opin_par  /=  null  then 

Put (outf ile, • ; ■ ) ; 
new_line (outf ile)  ; 
set_col (outf ile,  13 ) ; 

else 

if  adtop_ptr .has_outputs  then 
Put (outf ile, ■;■); 
new_line( out file) ; 
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else 


set_col (outf ile, 13 ) ; 
exit  ; 

Put (outf ile, “  ) " ) ; 
new_line (outf ile)  ; 

end  if; 
end  if; 
end  loop ; 
end  i f ; 

if  adtop_ptr .has_outputs  then 
if  adtop_ptr .has_inputs  then 
null  ; 

else 

put (outf ile, "  ( “ )  ; 
end  i f ; 

opout  _par : =adtop_ptr . op_out_par ; 
opout_parv : =adtop_ptr . op_out_par_val ; 
while  opout_par  /=  null  loop 
Put  ( out  f  i  le ,  opout_par .  neune )  ; 
opout_par : =opout_par . link; 

Put (outf ile, "  :  out  “ )  ; 
put (outf ile, opout_parv. name) ; 
opout_parv: =opout_parv. link; 
if  opout_par  /=  null  then 

Put (outf ile, " ; * ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 

else 

Put (outf ile,  "  ) " )  ; 
new_line (outf ile) ; 

end  if; 
end  loop; 
end  i f ; 

new_line (outf ile) ; 
put (outf ile, "  renames  "); 
put  (outfile,withname.naune)  ; 
put (outf ile, " . " ) ; 
put ( out  file, r_adtop_ptr . op_neune ) ; 
put (outf ile, ■;■); 
new_line (outf ile,  2 )  ; 
r_adtop_ptr : =r_adtop_ptr . link; 
adtop_ptr:=  adtop_ptr . link; 
end  loop; 

put (outf ile, "end  " ) ; 

put (outf ile, queryname . name ( 1 . .queryneune. len) ) ; 
put (outf ile, ■_pkg; " ) ; 
close (outf ile)  ; 
end  non_generic_adt ; 
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procedure  generic_adt  is 
begin 

create (out f ile, mode=>out_f ile, neune=>“out f ile " ) ; 
create (genfile, mode=>out_file, naine=>*genfile" ) ; 
put (genfile, "generic" ) ; 
put (outfile, “with  " )  ; 

put ( out f ile, withname .name ( 1 . .withname . len) ) ; 
put (outfile, “ ; “ ) ; 
new_line (outfile,  2 ) ; 
put (outfile, “package  " )  ; 

put (outfile, queryncune . name ( 1 . .queryname . len) ) ; 
put (outfile, “_pkg  is“); 
new_line (outfile,  2)  ; 

put (outfile,  “  package  tmp_“ ) ; 

put  (outfile,  querynaime .  ncime  ( 1 .  .queryname  .len)  )  ; 

put (outfile, “_pkg  is  new  “ )  ; 

put (outfile, withname .name ( 1 . .withname .len) ) ; 
put (outfile, “  (  “ ) ; 

genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
Put (outfile, genpar_ptr.val) ; 
if  genpar_ptr . link  /=  null  then 
Put (outfile,  ",  " )  ; 
end  if; 

genpar_ptr : =genpar_ptr . link; 
end  loop; 

put (outfile, “  );“); 
new_line (outfile) ; 

--now  reneune 

adtop_ptr : =query_adt_op_ptr ; 
r_adtop_ptr ; =  adt_op_ptr ; 
while  adtop_ptr  /=  null  loop 
put (outfile, “  procedure  “); 

Put  ( out  file,  adtop_ptr .  op_neune )  ; 

if  adtop_ptr .has_inputs  then 
put (outfile,  “  (“); 
opin_par : =adtop_ptr . op_in_par ; 
opin_parv : =adtop_ptr . op_in_par_val ; 
while  opin_par  /=  null  loop 
put (outfile, opin_par .neune) ; 
opin_par :=opin_par . link; 

Put (outfile, *  :  in  “); 

--generic  par  check  is  to  go  here  for  generic  proc 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 

if  opin_parv. name=genpar_ptr .param  then 
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Put (outf ile, genpar_ptr . val ) 
gen_f ound ; =True ; 
exit  ; 
end  i f ; 

genpar_ptr ; =genpar_ptr . link; 

end  loop; 

if  gen_found=False  then 

put  (outf  ile,  opin_parv. naime)  ; 
end  i f ; 

gen_found:=False; 

opin_parv: =opin _parv. link; 
if  opin_par  /=  null  then 
Put (outf ile, 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 

else 

if  adtop_ptr .has_outputs  then 
Put ( out  file, " ; • ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 
exit  ; 

else 

Put (outf ile, "  ) " ) ; 
new_line (outf ile) ; 

end  if; 
end  if; 
end  loop; 
end  i f ; 

if  adtop_ptr .has_outputs  then 
if  adtop_ptr .has_inputs  then 
null; 

else 

put (outf ile, " ( • )  ; 
end  if; 

opout_par:=adtop_ptr»,op_out  _par; 

opout_parv: =adtop_ptr . op_out_par_val ; 
while  opout_par  /=  null  loop 
Put  (out file,  opout_par.neune)  ; 
opout_par ; =opout_par . link; 

Put (outf ile, *  :  out  ’); 

--generic  par  check 
genpar_ptr : =gen_par_ptr ; 
while  genpar_ptr  /=  null  loop 
if  opout_parv.neune=genpar_ptr -param  then 
Put (outf ile, genpar_ptr .val) 
gen_f ound ; =True ; 
exit; 

end  if; 

genpar_ptr : =genpar_ptr . link; 
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end  loop ; 

if  gen_found=False  then 

put  (outf  ile,  opout _parv.nanie)  ; 
end  i f ; 

gen_f ound : =False ; 

opout_parv: =opout_parv. link; 
if  opout_par  /=  null  then 

Put (outfile, " ;  “ )  ; 
new_line (outfile) ; 
set_col (outfile, 13 ) ; 

else 

Put (outf ile,  "  )  " )  ; 
new_line (outf ile) ; 

end  i f ; 
end  loop; 
end  i f ; 

new_line (outf ile) ; 
put (outfile, “  renames  tmp_“ ) ; 
put  (outf  ile,  queryname  .neune  ( 1 .  .queryn2une .  len)  ) 
put (outfile, "_pkg . “ )  ; 
put (outfile, r_adtop_ptr .op_n^une) ; 
put (outfile, “ ; " ) ; 
new_line (outfile,  2 )  ; 
adtop_ptr : =adtop_ptr . 1 ink ; 
r_adtop_ptr : =r_adtop_ptr . link; 
end  loop; 

put (outf ile, "end  "); 

put  (outf  ile,  queryname  .n^uT^e  ( 1 .  .queryname .  len)  )  ; 
put (outfile, "_pkg; " )  ; 
close (outf ile)  ; 

end  generic_adt; 

end  query _compose_pkg; 
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J.  QUERY_PARSE.A 


--  ***  File 
--  ***  Author 
--  ***  Date 


query  _parse . a 
Dogan  Ozdemir 
September  1992 


with  u_env, queryparser , query_lex_io, query_lex, text_io, 
query _aux_pkg , query_compose_pkg ; 
with  component_parser , psdl_lex_io, psdl_lex, 
component_aux_pkg ; 

use  u_env, queryparser, text_io, query_aux_pkg, 
query _compose_pkg ; 

use  component_parser , component_aux_pkg ; 
procedure  main  is 

lastl,last2  : integer : =0 ; 

begin 

if  u_env.Argc  =  3  then 

component_aux_pkg.strlen(Argv(l) .S,lastl) ; 
component_aux_pkg.strlen(Argv(2) .S,last2) ; 
psdl_lex_io .open_input ( Argv( 1 ) . S { 1 . . lastl) ) ; 
psdl_lex_io . create_output ; 

--starting  parse  retrived  psdl  {Argv(l)) 

component_parser .yyparse; 
psdl_lex_io . close_input ; 
psdl_lex_io . close_output ; 

query_lex_io . open_input ( Argv ( 2 ) . S ( 1 . . Iast2 ) ) ; 
query_lex_io . create_output ; 

--starting  parse  query  psdl  (Argv(2)) 

queryparser . yyparse ; 
query_lex_io . close_input ; 
query_lex_io . close_output ; 


if  query_is_operator  then 

if  is_generic  then 
query_compose_pkg . gener ic_operator ; 
elsif  is_generic=False  then 
query _compose_pkg . non_gener ic_operator ; 
end  i f ; 
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elsif  query_is_adt  then 

if  is_generic  then 
query_compose_pkg . gener ic_adt ; 
elsif  is_generic=False  then 
query_compose_p)cg .  non_gener  ic_adt  ; 
end  if; 

end  if; 

else 

put_line ( "Wrong  number  of  arguments") 
end  i f ; 

end  main; 
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APPENDIX  D  -  SOURCE  CODE  FOR  GUI 


A.  SOFTBASE.A 

--  ***  TAE  Plus  Code  Generator  version  V5.1 
--  ***  File  :  softbase.a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


softbase  --  Main  program  BODY 


PURPOSE : 

This  is  the  main  program  of  an  application  generated  by  the  TAE  Plus 
Code  Generator. 

REGENERATED : 

This  file  is  generated  only  once. 

NOTES : 

To  turn  this  into  a  real  application,  do  the  following: 

1.  Each  panel  that  has  event  generating  parameters  is  encapsulated  by 
a  package.  Each  parameter  that  you  have  defined  to  be  " event - 
generating" , has  an  event  handler  procedure  in  the  appropriate  panel's 
package  body.  The  panel's  package  body  is  in  a  file,  named  by 
concatenating  the  string  "pan_"  with  the  panel  neime  (followed  by 
"_b.a") .  Each  handler  has  a  name  that  is  a  concatenation  of  the 
pareimeter  name  and  the  string  "_Event" 

Add  application-dependent  logic  to  each  event  handler. 

(As  generated  by  the  Workbench,  each  event  handler  simply  logs  the 
occurrence  of  the  event.) 


2.  See  the  "TAE  Plus  Ada  Progreiramer '  s  Guide’ 
to  compile  and  link  this  program. 


for  directions  on  how 


ADDITIONAL  NOTES: 

In  TAE  Plus  version  4.1,  every  TAE  Ada  application  caused  the  screen 
to  be  cleared  as  part  of  the  initialization  of  the  tae_termio  package. 
In  TAE  Plus  version  5.0,  the  TAE  Ada  bindings  have  been  changed  so  as 
not  to  clear  the  screen  by  default.  Simply  adding  a  call  to 
TAE.Tae_Termio.T_Clear  will  produce  the  same  results  as  4.1. 


with  TAE; 
with  Text_IO; 
with  Global; 
with  U_Env; 
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use  Text_IO, Global; 


--  PROGRAMMER  NOTE: 

--  add  one  “with"  for  each  resource  file  in  this  application 
with  sof tbase_Support ; 

procedure  softbase  is 

Wpt_Event 
Type_of_Wpt_Event 
User_Context_Ptr 
Panel_In_Resource_File 
UNKNOWN_WPT_EVENT 
L 

begin  --  softbase 

--  permit  upper/ lowercase  file  names 
TAE.Tae_Misc .F_Force_Lower  (FALSE) ; 

TAE.Tae_Wpt .Wpt_Init  Global .Default_Display_Id) ; 

--  initialize  resource  file 
--  PROGRAMMER  NOTE: 

--  For  each  resource  file  in  this  application,  calls  to  the  approriate 
--  Initialize_All_Panels  and  Create_Initial_Panels  must  be  added. 

sof tbase_Support . Initialize_All_Panels ( “ /n/gemini/worlc/ozdemir/tae/ 
work/sof tbase . res " ) ; 

sof tbase_Support .Create_Init ial_Panels ; 

TAE . Tae_Wpt . Wpt_NewEvent  ( Wpt_Event ) ; 


:  TAE . Tae_Wpt . Wpt_Eventptr ; 

:  Tae .Wpt_Eventtype; 

:  TAE . Tae_Wpt . Event_Context_Ptr ; 
:  Boolean; 

:  Exception; 

:  Integer  :==1; 


--ADDED 

Global .  Strlen  (U_Env.  Argv{  1 )  .SSe"  * ,  L)  ; 
path ( 1 . . L ) : =U_Env . Argv (1 ) 

Global . Strlen (U_Env.Argv( 2 ) .S&*  "(L); 
proto_pref ix( 1 . .L) : =U_Env . Argv ( 2 ) .S; 


EVENT_LOOP : 

while  not  Global .Application_Done  loop 
--  PROGRAMMER  NOTE; 

--  use  Global . Set_Application_Done  in  "quit"  event  handler  to  exit  loop 

--  Wait  for  the  next  event 

TAE . Tae_Wpt . Wpt_NextEvent 
(  Event  =>  Wpt_Event, 
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Etype  =>  Type_of_Wpt_Event  ) ; 
case  Type_of_Wpt_Event  is 

when  TAE . Tae_Wpt . WPT_PARM_EVENT  => 

--  Panel  event  has  occurred. 

--  PROGRAMMER  NOTE: 

--  Get  the  user  context  (which  is  stored  in  the  panel  object 
--  when  Wpt_NewPanel  is  called) . 

TAE . Tae_Wpt . Wpt_Extract_Context 
(  Event  =>  Wpt_Event, 

User_Ptr  =>  User_Context_Ptr  ) ; 

--  Get  the  parameter  name 

TAE . Tae_Wpt . Wpt_Extract_Parm 
(  Event  =>  Wpt_Event, 

Parm  =>  User_Context_Ptr . Parm_Name  ) ; 

--  Get  target  id 

TAE.Tae_Wpt .Wpt_Extract_Data 
(  Event  =>  Wpt_Event, 

Data  =>  User_Context_Ptr .Datavm_Ptr  ) ; 

--  Find  Vm  parm  object 

TAE . Tae_Vm . Vm_Find 

(  Vmid  =>  User_Context_Ptr .Datavm_Ptr, 

Name  =>  User_Context_Ptr . Parm_Name, 

Vout  =>  User_Context_Ptr . Parm_Ptr  ); 

--  Dispatch  event  to  event  handler 

sof tbase_Support .Dispatch_Panel 

(  User_Context_Ptr  =>  User_Context_Ptr , 

Panel_In_Resource_File  =>  Panel_In_Resource_File  ) ; 

if  (not  Panel_In_Resource_File)  then 

--  PROGRAMMER  NOTE: 

--  For  applications  with  more  than  one  resource  file, 

--  add  a  call  to  Dispatch_Panel  for  each  resource  file. 

Text_IO . Put_Line  ("Unexpected  event  from  wpt ! " ) ; 
raise  TAE.Tae_Wpt .BAD_EVENT_ID; 
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end  i f ; 


when  TAE . Tae_Wpt . WPT_FILE_EVENT  => 

Text_IO . Put_Line  ("No  EVENT_HANDLER  for  event  from  external 
source . “ ) ; 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  file  events. 

--  Use  Wpt_AddEvent  and  Wpt_RemoveEvent  to  register  and  remove 
--  event  sources. 

--  Use  Wpt_Extract_EventSource  and  Wpt_Extract_EventMask  to  get 
--  information  about  the  event  that  occurred. 


when  TAE.Tae_Wpt .WPT_WINDOW_EVENT  => 
null  ; 

--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  window  events. 

--  WPT_WINDOW_EVENT  can  be  caused  by  windows  which  you  directly 

create 

--  with  X  (not  TAE  panels),  or  by  user  acknowledgement  of  a 
--  Wpt_PanelMessage  (therefore  no  default  put_line  statement  is 
--  generated  here) . 

--  You  MIGHT  want  to  use  Wpt_Extract_xEvent_Type  here. 

--  DO  NOT  use  Wpt_Extract_Parm_xEvent  since  this  is  not 
--a  WPT_PARM_EVENT ;  you  may  get  a  "storage  error". 


when  TAE.Tae_Wpt.WPT_TIMEOUT_EVENT  => 

Text_IO . Put_Line  ( " STUB :  Event  WPT_TIMEOUT_EVENT" ) ; 
--  PROGRAMMER  NOTE: 

--  Add  code  here  to  handle  timeout  events. 

--  Use  Wpt_SetTimeOut  to  register  timeout  events. 


--  These  are  internal  TAE  events.  The  application  should  never  see 

them. 

--  when  TAE.Tae_Wpt,WPT_HELP_EVENT  => 

--  when  TAE.Tae_Wpt.WPT_INTERRUPT_EVENT  => 

when  others  => 

raise  UNKNOWN_WPT_EVENT ; 
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end  case; 


end  loop  EVENT_LOOP; 

--  PROGRAMMER  NOTE: 

--  Application  has  ended  normally.  Add  application  specific  code  to 
--  close  down  your  application. 

exception 

when  UNKNOWN_WPT_EVENT  => 

Text_IO.Put  ("FATAL  ERROR:  Unknown  Wpt_NextEvent  Event  Type:  ; 

Text_IO.Put  (TAE .Wpt_Eventtype ' image (Type_of_Wpt_Event )  )  ; 

Text_IO . Put_Line  (“  ...  Forced  exit."); 

end  softbase; 
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B.  GLOBAL  PACKAGE 


1,  GLOBAL_S.A 

__  ***  -pAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  global_s.a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

*  Global  --  Package  SPEC 


with  X_W i ndows ; 

with  Text_IO; 

with  TAE; 

with  SYSTEM; 

use  TAE, SYSTEM, Text_IO; 

package  Global  is 


PURPOSE : 


--I  This  package  is  automatically  "with'ed  in  to  each  panel  package  body. 
--I  You  can  insert  global  variables  here. 


--I  REGENERATED: 

--i  This  file  is  generated  only  once. 


package  Taefloat_IO  is  new  Text_IO.Float_IO  ( TAE. Tae float) ; 


Default_Display_Id  :  X_Windows .Display ; 
--ADDED 


library 

lib_to_delete 

path 

proto_pref ix 
Query _psdl 
Directory 
kwquery_out  file 
query_outf ile 
component 
directory_array 
directory_f ile_name 
lib_vec 
f ile_vec 
Is_a_directory 


String  (1..10):=  (others=>'  ' ) ; 

String  {1..10);=  (others=>'  '); 

String { 1 .. 80 ): =  (others=>'  '); 

String ( 1 . .80) ; =  (others=>'  '  )  ; 

String ( 1 .. 80) : =  (others=>'  ‘  )  ; 

Stringd.  .80)  :=  (others=>'  '  )  ; 

String ( 1 . . 15) : ="kwquery_outf ile“ ; 

String (1 . . 13) : =*query_outf ile* ; 

String ( 1 . .80) : =  (others=>'  ‘ ) ; 

String  (1..27):=  (others=>'  ’ ) ; 

String ( 1 .. 14)  :=  "directory_file"; 
s_vector ( 1 . .20) ; =  (others=>  new  STRING{1..10)); 
s_vector ( 1 . .200 ) : =  (others=>  new  STRING { 1 .. 80 )) ; 
Boolean : =FALSE; 
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Upper_di rectory 
Coinponent_add 
Coniponent_update 
Query 

cur rent_di rectory 

directory_f ile 

cur_dir_index 

lib_count 

nuin_of_comp 

com 

parse 

integrate/ " ; 


:  Boolean : =FALSE ; 

:  Boolean : =FALSE; 

;  Boolean : =FALSE; 

:  Boolean : =FALSE; 

:  array (1.. 20)  of  String ( 1 .. 80 )  ; 

:  file_type; 

:  integer :=1; 

;  integer  :=0; 

:  integer :=1; 

constant  String: s"$HOME/caps/src/software_base/sb  " 
:  constant  String: ="$HOME/caps/src/software_base/ 


Applicati on_Done 


--  Subprogram  SPEC 


function  Application_Done 
return  Boolean; 

--I  PURPOSE: 

--I  This  function  returns  true  if  a  “quit"  event  handler  has  called 
--I  Set_Application_Done,  otherwise  it  returns  false. 


Set_Application_Done 


--  Subprogram  SPEC 


procedure  Set_Application_Done; 

--I  PURPOSE: 

--I  This  procedure  can  be  ^sed  by  an  event  handler,  typically  a  "quit 
--I  button,  to  signal  the  end  of  the  application. 


- -ADDED 


system_call  --  Subprogram  SPEC 


procedure  3ystem_call (command  :  STRING); 

--I  PURPOSE: 

--I  This  procedure  is  used  to  make  unix  system  calls  from  within  the 
--I  program. 
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strlen  --  Subprogram  SPEC 


procedure  strlen (s:  in  String;  n:  in  out  Integer); 

--I  PURPOSE: 

--I  This  procedure  is  used  to  get  the  length  of  strings. 


list_directory 


--  Subprograun  SPEC 


procedure  list_directory ( f ile  : in  out  file_type; 

file_name:in  out  string; 
file_vec  : in  out  s_vector; 

I  :in  out  integer); 


--I  PURPOSE: 

--I  This  procedure  is  used  to  obtain  the  contents  of  unix  directory 
--I  structures. 


list_components 


--  Subprogram:  SPEC 


procedure  list_components ( f ile  tin  out  file_type; 

f ile_nam:e : in  out  string; 
file_vec  tin  out  s_vector; 

I  tin  out  integer); 

» 

- -  I  PURPOSE : 

-- I  This  procedure  is  used  to  read  the  component  list  from  a  text  file  and 
--I  fill  them  into  a  s_vector  structure  to  be  displayed  in  a  TAE  panel. 


read_directory 


--  Subprogram:  SPEC 


procedure  read_directory ( f ile  tin  out  file_type; 

f ile_nam:e : in  out  string; 
dir_nam:e  tin  out  string); 
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--I  PURPOSE: 

--I  This  procedure  is  used  to  read  the  name  of  the  current  directory  and 
--I  to  get  the  path  from  a  text  file. 


errorstring 


--  Subprogram  SPEC 


procedure  errorstring ( file  : in  out 

file_name:in  out 
err_str  : in  out 


f ile_type; 
string; 
string)  ; 


- -  I  PURPOSE : 

-- 1  This  procedure  is  used  to  read  the  error  message  given  by  the 
--I  software  base  program. 


parse_line 


--  Subprogram  SPEC 


procedure  parse_line (s :  in  String); 

--I  PURPOSE: 

--I  This  procedure  is  used  to  determine  if  the  selected  line  is  a 
--I  directory  or  a  file  and  if  it  is  a  directory  it  gets  the  identity 
--I  of  the  directory. 


end  Global; 


2.  GLOBAL  B.A 


__  **»  Plus  Code  Generator  version  V5 . 1 

--  ***  File  :  global_b.a 

--  ***  Generated  ;  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  ♦ 

--  *  Global  --  Package  BODY 

_  _  ★ 

package  body  Global  is 
- -  I  REGENERATED : 

--I  This  file  is  generated  only  once. 

Is_Application_Done  :  Boolean  :=  FALSE; 


Application_Done  —  Subprogram  BODY 


function  Application_Done  return  Boolean  is 
begin 

return  Is_Application_Done; 
end  Application_Done; 


Set_Application_Done  --  Subprogram  BODY 


procedure  Set_Application_Done  is 

begin 

Is_Application_Done  :=  TRUE; 
end  Set_Application_Done; 

--ADDED 
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system_call 


--  Subprogram  BODY 


procedure  system_call ( command  :  STRING)  is 

procedure  system_c  (command  :  ADDRESS) ; 
pragma  INTERFACE (C,  SYSTEM_C) ; 
pragma  INTERFACE_NAME (SYSTEM_C,  “_sYstem"); 
TEMP  :  constant  STRING  :=  commandStASCII .  NUL; 
ERROR  :  INTEGER; 

begin 

SYSTEM_C ( TEMP ' ADDRESS ) ; 
end  system_call; 


strlen  --  Subprogram  BODY 


procedure  strlen(s:  in  String;  n:  in  out  Integer)  is 

I  :  Integer  : =  1 ; 

begin 

loop 

if  s(I)  =  '  '  then 

exit  ; 
end  if; 

I:=I+1; 
end  loop; 
n:=  I-l; 
end  strlen; 


list_directory  --  Subprogram  BODY 


procedure  list_directory { f ile : in  out  file_type; 

file_name:in  out  string; 
file_vec  :  in  out  s_vector; 
I  :in  out  integer) is 

len  :  integer  :=1; 

begin 
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I:=l; 

open  ( file,mode=>in_file,  nanie=>f  ile_naitie)  ; 
f i le_vec ( I )  . al 1 ( 1 .  .  2 )  :  = "  .  .  "  ; 

for  cl  in  3.. 80  loop 

f ile_vec ( I) .all (cl ) : = ' 
end  loop ; 

while  not  end_of_file  (file)  loop 
I:=I+1; 

Text_I0 . get_line (file,  f ile_vec (I) .all, len) ; 
for  clean  in  (len+l)..80  loop 
f ile_vec ( I ) . all (clean) : = ■ 
end  loop; 
end  loop ; 
close (file) ; 

exception 

when  END_ERROR  =>  null; 
end  list_directory ; 


1  ist_coinponents 


procedure  list_components ( f ile  :in  out  file_type; 

f  ile_ncime :  in  out  string; 
file_vec  :  in  out  s_vector; 
I  :in  out  integer) is 

len:  integer  ;=1; 
begin 
I:=l; 

open ( file, inode=>in_f ile, naine=>file_naine)  ; 

while  not  end_of_file  (file)  loop 

Text_IO.get_line(file, file_vec(I) .all, len) ; 
for  clean  in  (len+l)..80  loop 

file_vec(I) .all (clean) :='  '; 
end  loop; 

I:=I+1; 
end  loop; 

I:=:I-1; 
close (file) ; 
end  list_component3 ; 
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read_di rectory 


procedure  read_directory ( f ile  : in  out  file_type; 

f  ile_naine:  in  out  string; 
dir_name  tin  out  string)  is 

lent  integer  :=1; 
begin 

open  {  file,  mode  =  >in_f  ile,  naine=>f  ile_naine)  ; 

Text_IO .get_line (file, dir_name, len) ; 
close (file) ; 
end  read_directory ; 


errorstring 


procedure  errorstring ( file  tin  out  file_type; 

file_nametin  out  string; 
err_str  tin  out  string) is 

lent  integer  t=l; 
begin 

open  (  f  ile, mode=>in_f  ile,  neiine=>f  ile_nciine)  ; 
Text_IO .get_line (file, err_str , len) ; 
if  len=0  then 

Text_IO .get_line ( f ile, err_str , len) ; 
end  i f ; 
close (file) ; 
exception 

when  END_ERROR  =>  close(file); 
end  errorstring; 


parse_line 


procedure  parse_line (s t  in  string)  is 

char  I  character ; 

N  t integer ;=1; 

begin 
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strlen ( s , N) ; 
if  s(N)='/'  then 

Is_a_directory : =TRUE; 
end  i f ; 
if  N=2  then 

if  s ( 1 . . 2 ) “  then 
Upper_directory : =TRUE; 
end  i f ; 
end  if; 

end  parse_line; 


end  Global; 


c 


PANEL  LIBRARY  PACKAGE 


1.  PAN_LIBRARY_S.A 

__  ***  tAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_library_s .a 

--  ***  Generated  ;  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  * 

*  Panel_library  --  Package  SPEC 

_  —  * 


with  TAE; 
with  X_Windows; 

package  Panel_library  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:  library 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED ; 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
library 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  );  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is 
TAE . Tae_Co . NO_SUCH_MEMBER 
Collection  Read 


raised  if  Collection_Read  not  initialized 
is  raised  if  the  panel  is  not  in 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 
: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 
:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


I  PURPOSE : 

This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info. Panel_Id. 

EXCEPTIONS : 

TAE. UNINITIAL I ZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt.Wpt_F lags 
: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 
:=  X_Windows .Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info. Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 
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--I  EXCEPTIONS: 

--I  TAE .UNINITIALIZED_PTR  is  raided  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
--I  created 

-- I  TAE.Tae_Wpt .BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


PURPOSE : 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 
id . 


NOTES : 


--I  Info.Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE  .Tae_Wpt .  Evej}t_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_library ; 
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2.  PAN_LIBRARY_B.A 

__  ***  ip^  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_library_b.a 

Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_library  --  Package  BODY 

_  ★ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global ; 

--  One  “with"  statement  for  each  connected  panel, 
with  Panel_lbselect ; 
with  Panel_libadd; 
with  Panel_lbdelete ; 

package  body  Panel_library  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  naime  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED; 

The  following  WorkBench  pperations  will  cause  regeneration  of  this 
file : 

The  panel's  name  is  changed  (not  title) 

For  panel : 
library 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

libfunc,  help,  quit 
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Initialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt .Event_Context; 

Info . Collection  :=  Collection_Read; 

TAE . Tae_Co . Co_Find  ( Info  .Collection,  “  library _v'' ,  Info.View); 
TAE.Tae_Co .Co_Find  ( Info. Collection,  "library_t".  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_library . Initialize_Panel :  “ 

&  "Collection_Read  not  initialized."); 
raise ; 

when  TAE .  Tae_Co .  NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_library . Initialize_Panel :  " 

Se  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 
: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat i ve_Window 

:  in  X_Windows .Window 
:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info .  Panel_Id  =  Tae  .Null,_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 
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(  Dummy 
Data_Vm 
View_Vm 

Re 1 a t i ve_W i ndow 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line  ("Panel 
end  if; 


=> 

=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 

=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  ) ; 

(library)  is  already  displayed."); 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  { " Panel_library .Create_Panel : 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_library .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 


end  Create_Panel ; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt  .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re 1 a t i ve_W i ndow 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) ; 
end  i f ; 
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exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  { “ Panel_library .Connect_Panel : 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_library .Destroy_Panel :  * 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
nu  1 1  ; 

end  Destroy_Panel ; 


++++  +  +  +  •*■  ++++  +  +  +++++++++++++++++++++++■*■+++++  +++++++  +  +  +  +  +  +  +++  +  +  +  +  +  +  +  + 


--  begin  EVENT  HANDLERS 


1 ibf unc_Event 


--  Subprogrcun  SPEC  &  BODY 


procedure  libfunc_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 
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id_file  :  file_type; 

id_string:  String  (1..80):=  (others=>'  ‘ ) ; 
id  :  String  (1..10):=  (others=>'  ' ) ; 

len,I,J  :  integer  :=1; 

begin  --  libfunc_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vin_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE .Tae_Vm. Vm_Extract_SVAL  ( Info. Parm_Ptr,  1,  Value(l)); 
end  if; 

systeni_call  ( "whocuni  >  id_file“); 
open ( id_f ile, mode=>in_f ile, naine=>“ id_f ile“ ) ; 
get_line ( id_f ile, id_string, len) ; 
while  id_string(I)  /=  '  *  loop 

id(J) : =id_sCring ( I ) ; 

I:=  I+l; 

J:=J+1; 
end  loop; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 

if  TAE.Tae_Misc .s_equal  (Value(l),  “Library  Selection")  then  null; 
Connect_Panel  (TAE.Tae_Wpt.WPT_INVISIBLE) ; 

Panel_lbselect .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

elsif  TAE.Tae_Misc.s_equal  (Valued),  “Library  Addition")  then 
if  id(1..4)  =  “root"  then 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_libadd.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
else 

TAE.Tae_Wpt . Wpt_PanelMessage ( info.panel_id, “AUTHORIZED 
PERSONNEL  ONLY ! “ ) ; 
end  i f ; 

elsif  TAE .Tae_Misc . s_equ4l  (Value (1),  "Library  Deletion")  then 
if  id(1..4)  =  "root"  then 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_lbdelete .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
else 

TAE.Tae_Wpt .Wpt_PanelMessage ( info.panel_id, "AUTHORIZED 
PERSONNEL  ONLY ! " ) ; 
end  i f ; 
end  i f ; 

I:=l;  J:=l; 
id:=“ 

system_call ( "rm  id_file"); 

--  End  generated  code  for  Connection 

end  libfunc_Event ; 
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quit_Event 


--  Subprogram  SPEC  &  BODY 


procedure  quit_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  quit_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm. Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr,  1,  Value ( 1) ); 
end  i f ; 

--  End  default  generated  code 
--ADDED 

Global .Set_Application_Done; 
end  quit_Event; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


Subprogrcim  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 
begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("libfunc",  User_Context_Ptr . Parm_Name)  then 
libfunc_Event  (User_Context_Ptr ) ; 

elsif  TAE . Tae_Misc . s_equal  ("quit",  User_Context_Ptr . Parm_Name )  then 
quit_Event  (User_Context_Ptr ) ; 
end  i f ; 

end  Dispatch_Item; 
end  Panel_library ; 
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D.  PANEL  LIBADD  PACKAGE 


1.  PAN_LIBADD_S.A 

__  ***  taE  Plus  Code  Generator  version  V5.1 
--  ***  File  ;  pan_libadd_s .a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  ★ 

*  Panel_libadd  --  Package  SPEC 


with  TAE; 
with  X_Windows; 

package  Panel_libadd  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel;  libadd 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED ; 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
libadd 


Info  :  TAE,Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE .Tae_Wpt .WPT_PREFERRED; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows . Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


- -  I  PURPOSE : 

-- I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
--I  and  stores  the  panel  Id  in  Info. Pane l_Id. 

--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:  =  X_W i  ndows  .  Nu  1  l_Wi  ndow  )  ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info.Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 


EXCEPTIONS : 
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--I  TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
--I  created 

--I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  DestroY_Panel ; 


PURPOSE: 


--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
-- I  associated  panel  object  (not  the  target  and  view). 


EXCEPTIONS : 


--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if 
--I  id. 


Info . Panel_Id  is  an  invalid 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Di spat ch_I tern 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

-- I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_libadd; 
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2. 


PAN  LIBADD  B.A 


__  ***  tae  Plus  Code  Generator  version  V5.1 
--***File  :  pan_l ibadd_b . a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  -k 

*  Panel_libadd  —  Package  BODY 

—  —  * 

with  TAE;  use  TAE; 
with  Text_IO;use  Text_IO; 
with  Global; 
with  Panel_lbselect ; 
with  Panel_lbdelete; 
use  Global; 


--  One  "with"  statement  for  each  connected  panel, 
with  Panel_library ; 

package  body  Panel_libadd  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  “event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  ncime  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 


REGENERATED; 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
libadd 


The 


following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
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For  the  panel  items: 

libname,  rulefile. 


ok. 


cancel , 


-ADDED 

rulefile 

libr 

err_str ing 
error_f ile 
error_fname 


String  (1..15):=  (others=>'  ') 

String  (1..10):=  (others=>'  ') 

String  (1..80):=  (others=>'  ') 
file_type; 

String (1.. 9)  “errorf ile“ ; 
package  integer_inout  is  new  Text_IO . integer_io ( integer ) ; 
use  integer_inout ; 


Initialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Ta-3_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  : =  new  TAE . Tae_Wpt . Event_Context ; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info . Collection,  '•libadd_v",  Info. View)  ; 
TAE.Tae_Co.Co_Find  ( Info  .Collection,  "libadd_t“,  Info  .Target )  ,• 

exception 

when  TAE. UNINITIAL I ZED_PTR  => 

Text_IO . Put_Line  ( " Panel_libadd. Initialize_Panel :  " 

Sr  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( "Panel_libadd. Initialize_Panel :  " 

Sc  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 
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:  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  =>  “  “ , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relat ive_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Inf o . Panel_Id  ) ; 

else 

Text_IO . Put_Line  (“Panel  (libadd)  is  already  displayed."); 

end  i f ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_libadd.Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( “Panel_libadd.Create_Panel : 

£c  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
{  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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begin 


Connect_Pane 1 


if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE .Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State ) ; 
end  if; 

except  ion 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( “ Panel_libadd.Connect_Panel : 

&  "Invalid  panel  state."); 
raise ; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE. Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_libadd.Destroy_Panel: 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise ; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 


--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 


--  begin  EVENT  HANDLERS 


1 ibname_Event 


--  Subprogram!  SPEC  &  BODY 
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procedure  libname_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Concext_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  1 ibname_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)  ); 
else 
null; 
end  if; 

- -ADDED 

librd.  .10)  :=Value(l)  (1.  .10)  ; 

--  End  default  generated  code 

end  1 ibname_Event ; 


rulef ile_Event 


--  Subprogram  SPEC  &  BODY 


procedure  rulef ile_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

I 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  {1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  rulef ile_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm. Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Valued)  ); 
--ADDED 

rulefiled.  .15)  :=  Value  (1)  (1 ..  15)  ; 
else 
null  ; 


159 


--  Subprogram  SPEC  &  BODY 


end  i f ; 

--  End  default  generated  code 
end  rulef ile_Event ; 


ok_Event 


procedure  ok_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  (1. .TAE. Tae_Taeconf .STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

dir  :  constant  String  :=  “ $HOME/caps/src/sof tware_base/ “ ; 

N,M  :  Integer ;=1; 

Dummy:  Boolean; 

Libcontent  :  file_type; 
len, S : integer : =1 ; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)); 
else 
null ; 
end  if; 

- -ADDED 


open (Libcontent, mode=>in^file, naine=>" libcontent ” ) ; 
get (Libcontent, lib_count, 1) ; 
if  lib_count  >=  10  then 

TAE .Tae_Wpt . Wpt_PanelMessage ( info. panel_id, "ONLY  20  LIBRARY  IS 
PERMITTED" ) ; 
else 

global . strlen ( libr, N) ; 
global . strlen (rulef ile, M) ; 

global . system_call (com& "ml  "Slibr ( 1 . .N) &"  "tdir&rulef ile ( 1 . .M) &"  > 
"&error_fn2une)  ; 

global . errorstring (error_f ile, error_fnaune, err_string) ; 
global . strlen (err_string,  S) ; 
if  S>1  then 

TAE .Tae_Wpt . Wpt_PanelMessage ( info .pane l_id, err_string) ; 

S:=l; 
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Sterror_fname)  ; 


global . system_call ( “rm 
for  err  in  1..80  loop 
err_string (err ) : = ‘  ‘ 
end  loop; 
else 

lib_count : =lib_count+l ; 
skip_line ( Libcontent ) ; 
for  I  in  1 . . { lib_count-l )  loop 

get_line (Libcontent , lib_vec ( I ) . all,  len) ; 
skip_line (Libcontent) ; 
end  loop; 

lib_vec ( lib_count ) .all:=libr; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Panel_lbselect . Info . Panel_Id, "selec 
tion" , taeint ( lib_count ) , lib_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Panel_lbdelete . Info . Panel_Id,  " selec 
tion" , taeint ( lib_count ) , lib_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; - -Now ! 
reset (Libcontent, out_f ile) ; 
put (Libcontent , 1 ib_count ,1); 
new_line (Libcontent ) ; 
for  J  in  l..lib_count  loop 

put_line (Libcontent, lib_vec(J) .all) ; 
end  loop ; 
end  i f ; 
end  if; 

close (Libcontent ) ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_library .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE .Tae_Wpt .Wpt_PanelReset ( Info. Pane l_Id) ; 
end  ok_Event ; 


cancel_Event 


--  Subprograun  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 
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Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parin_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.  Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_library .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  K " libnaime* ,  User_Context_Ptr.Parm_Name)  then 
libname_Event  (User_Context_Ptr ) ; 

elsif  TAE .Tae_Misc . s_equal  ("rulefile",  User_Context_Ptr . Parm_Name) 

then 

rulef ile_Event  (User_Context_Ptr) ; 
elsif  TAE.Tae_Misc.s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 
ok_Event  {User_Context_Ptr ) ; 

elsif  TAE. Tae_Mi sc. 3_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
end  i f ; 

end  Dispatch_Item; 
end  Panel_libadd; 
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E 


PANEL  LBDELETE  PACKAGE 


1.  PAN_LBDELETE_S.A 

__  «»*  taE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_lbdelete_s .a 

__  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


Panel_lbdelete 


--  Package  SPEC 


with  TAE; 
with  X_Windows; 

package  Panel_lbdelete  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  Ibdelete 
These  subprograms  enable  panel  initialization,  creation,  destruction 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 

Ibdelete 


I'^fo  :  TAE.Tae_Wpt  .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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--I  EXCEPTIONS: 

--I  TAE . UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re 1 a t i ve_W i ndow 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE : 

This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info.Panel_Id. 

EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info . Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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--I  TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
-- I  created 

--I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

-- I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 
id. 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  P.ARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

i 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_lbdelete ; 
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2.  PAN_LBDELETE_B.A 

__  ***  taE  Plus  Code  Generator  version  V5.1 
--  ***  File  :  pan_lbdelete_b.a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_lbdelete  --  Package  BODY 

_  ♦ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_library ; 
with  Panel_ldelwarn; 

package  body  Panel_lbdelete  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  ncime  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  neune  is  changed  (not  title) 

For  panel: 

Ibdelete 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  neune  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

selection,  cancel,  ok 
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--ADDED 

package  integer_inout  is  new  Text_IO. integer_io ( integer ) ; 
use  integer_inout ; 


Init ialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Coll6ction_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info . Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  “ lbdelete_v" ,  Info.View); 
TAE.Tae_Co.Co_Find  ( Inf o . Collection,  " lbdelete_t " ,  Info.Target) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_lbdelete . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_lbdelete . Initialize_Panel : 

Sc  “(View  or  Target)  not  in  Collection.”); 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt . Wpt_Flags 

; =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPanel 

(  Dummy  => 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info. Panel_Id  ) ; 

else 

Text_IO . Put_Line  (“Panel  (Ibdelete)  is  already  displayed."); 

end  i f ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( “ Panel_lbdelete .Create_Panel :  “ 

Sc  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( “ Panel_lbdelete .Create_Panel :  " 

Sc  “Panel  could  not  be  created.*); 
raise ; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

--ADDED 

Libcontent  :  file_type; 
len  : integer  :=1; 

Dummy  : Boo 1 ean ; 

begin  --  Connect_Panel 


if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relat ive_Window, 

Panel_state  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) ; 

--ADDED 

open (Libcontent,mode=>in_f ile, naine=>“ libcontent " ) ; 
get (Libcontent , 1 ib_count ,  1 )  ; 
skip_line (Libcontent)  ; 
for  I  in  l..lib_count  loop 

get_line( Libcontent, lib_vec{I) .all, len) ; 
skip_line (Libcontent) ; 
end  loop; 

T.AE .Tae_Wpt . Wpt_SetStringConstraints ( Info. Pane l_Id, “selection" , taeint ( li 
b_count)  ,  lib_vec)  ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  if; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( “ Panel_lbdelete .Connect_Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


De  s  t  roy_Pane 1 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 


begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_lbdelete.Destroy_Panel :  ” 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE. Tae_Wpt.ERASE_NULL_ PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
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--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
--  begin  EVENT  HANDLERS 


selection_Event 


--  Subprogram  SPEC  U  BODY 


procedure  selection_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 


Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

begin  --  selection_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm. Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)); 
else 
null  ; 
end  i f ; 

--ADDED 

lib_to_delete  ( 1 .  .  10 )  :  =Va,lue  ( 1 )  ( 1 .  .  10 )  ; 

--  End  default  generated  code 
end  selection_Event ; 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . . TAE . Tae_Taeconf . STRINGSIZE)  ; 
Count  :  TAF.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value(l)); 
else 
null  ; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_1NVISIBLE) ; 

Panel_library .Connect_Fanel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset (Info. Panel_Id) ; 
end  cancel_Event ; 


ok  Event 


--  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm.Vm_Extract_Count  ( Inf o . Parm_Ptr ,  Count); 
if  Count  >  0  then 
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TAE.Tae_Vm.Vm_Extract_SVAL  t Info . Parin_Ptr ,  1,  Value(l)); 
else 
nu  1 1  ; 
end  i f ; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_ldelwarn . Connect_Panel  (TAE .Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info. Panel_Id) ; 
end  ok_Event ; 


--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Itein 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc .s_equal  ( V selection" ,  User_Context_Ptr . Parin_Name)  then 
select ion_Event  (User_Context_Ptr) ; 
elsif  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name )  then 
cancel_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 
ok_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 
end  Panel_lbdelete; 
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F, 


PANEL  LDELWARN  PACKAGE 


1.  PAN_LDELWARN_S.A 

__  ***  Plus  Code  Generator  version  V5.1 

--  ***  File  :  pan_ldelwarn_s . a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  * 

*  Panel_ldelwarn  --  Package  SPEC 

^  _  ★ 


with  TAE; 
with  X_W i ndows ; 

package  Panel_ldelwarn  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  Idelwarn 
These  subprograms  enable  panel  initialization,  creation,  destruction 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 

Idelwarn 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initialize_ Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE .Tae_Co .Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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--I  EXCEPTIONS: 

--1  TAE .UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE.Tae_Co.NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE: 

This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info. Panel_Id. 


EXCEPTIONS ; 


--I  TAE. UNINITIAL I ZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
-- I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Infv-  Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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--I  TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 


created 

TAE.Tae_Wpt .BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


PURPOSE: 

This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 
id. 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

t 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--i  EXCEPTIONS: 

--I  Application-specific 

end  Panel_ldelwarn; 
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2.  PAN  LDELWARN  B.A 


__  ***  Plus  Code  Generator  version  V5 . 1 

--  ***  File  :  pan_ldelwarn_b.a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_ldelwarn  --  Package  BODY 

_  ★ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_library ; 
with  Panel_lbselect ; 
with  Panel_lbdelete ; 


package  body  Panel_ldelwarn  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  pareimeter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED: 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  neune  is  changed  (not  title) 

For  panel : 

Idelwarn 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 
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ok, 


cancel 


- -ADDED 

package  integer_inout  is  new  Text_IO . integer_io ( integer ) ; 
use  integer_inout ; 


Initialize_Panel  --  Subprogram 

BODY 

procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  ;=  new  TAE.Tae_Wpt .Event_Context; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  “ ldelwarn_v“ ,  Info.View); 
TAE.Tae_Co.Co_Find  ( Info. Collection,  " ldelwarn_t " ,  Inf o. Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_ldelwarn . Initialize_Panel : 

&  “Collection_Read  not  initialized."); 
raise ; 

H 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  { " Pane l_lde Iwarn. Initial ize_Panel : 

&  “(View  or  Target)  not  in  Collection."); 
raise; 

H 

end  Initialize_Panel ; 

Create_Panel  --  Subprogram 

BODY 

procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 
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:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPanel 

(  Dummy  =>  “ " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ) ; 

else 

Text_IO . Put_Line  (“Panel  (Idelwarn)  is  already  displayed."); 

end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( "Panel_ldelwarn.Create_Panel :  “ 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO.Put_Line  ( "Panel_ldelwarn.Create_Panel :  “ 

&  “Panel  could  not  be  created.*); 
raise; 

end  Create_Panel ; 


(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info. Panel_Id,  Panel_State) ; 
end  i f ; 

exception 

when  TAE .  Tae_Wpt .  BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_ldelwarn . Connect_Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel 


Subprogram  BODY 


procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE .Tae_Wpt . Wpt_PanelErase ( Info. Panel_Id) ; 
exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_ldelwarn.Destroy_Panel : 

Sc  "  Info .  Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  , and  do  nothing, 
null  ; 

end  Dfe'.;troy_Panel  ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
--  begin  EVENT  HANDLERS 


ok_Event 


--  Subprogram  SPEC  St  BODY 
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procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 

Count  :  TAE . Tae int ; 

--ADDED 

N  :  Integer :=1; 

Dummy : Boolean ; 

Libcontent  :  file_type; 
len : integer : =1 ; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm. Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Valued)  ); 
else 
null  ; 
end  if; 

--ADDED 

open (Libcontent , mode=>in_file, name=>* libcontent " ) ; 
get (Libcontent, lib_count, 1) ; 
global . strlen ( lib_to_delete,N) ; 

global . system_call (com&“dl  "&lib_to_delete ( 1 . .N) ) ; 
skip_line (Libcontent )  ; 
for  I  in  l..lib_count  loop 

get_line (Libcontent, lib_vec (I) .all, len) ; 
skip_line (Libcontent ) ; 
if  lib_to_delete=lib_vec ( I) .all  then 
if  I=lib_count  then 
1 ib_vec (I).all;=* 
end  if; 

'  » 
lib_count : =lib_count-l ; 

for  J  in  I . . ( 1 ib_count )  loop 

get_line (Libcontent, lib_vec(J+l) .all, len) ; 
skip_line (Libcontent) ; 
lib_vec(J) .all :=lib_vec{J+l) .all; 
lib_vec ( J+1) .all : =■  "; 

end  loop; 
exit; 
end  i f ; 
end  loop ; 

TAE.Tae_Wpt .Wpt_SetStringConstraints ( Panel_lbselect . Info. Panel_Id, "selec 
tion" , tae int (lib_count) , lib_vec) ; 
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TAE .Tae_Wpt . Wpt_SetStringConstraints { Panel_lbdelete . Info . Panel_Id, "selec 
tion" , taeint (lib_count) , lib_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

reset (Libcontent , out_f ile) ; 
put ( Libcontent , 1 ib_count  ,1); 
new_line (Libcontent )  ; 
for  K  in  1 .  .  ( lib_count  +  l )  loop 

put_line (Libcontent , lib_vec (K) .all) ; 
end  loop; 

close (Libcontent) ; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_library .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  olc_Event  ; 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE. Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count) ; 
if  Count  >  0  then 

TAE.Tae_Vm. Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Valued)  ); 
else 
null  ; 
end  if; 

--  End  default  generated  code 
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--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_library .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 
ok_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 
end  i f ; 

end  Dispatch_Item; 

I 

end  Panel_ldelwarn; 
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G.  PANEL  LBSELECT  PACKAGE 


1.  PAN_LBSELECT_S.A 

***  tAE  Plus  Code  Generator  version  V5 . 1 
*»*  File  :  pan_lbselect_s . a 

***  Generated  :  May  21  16:12:31  1992 
***  Revised  by  :  Dogan  Ozdemir 


*  Panel  Ibselect 


--  Package  SPEC 


with  TAE; 
with  X_Windows; 

package  Panel_lbselect  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:  Ibselect 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  neime  is  changed  (not  title) 

For  panel: 

Ibselect 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr; 


--  panel  information 


Initialize_Pariel 


--  Subprogram  SPEC 


procedure  Initial ize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Ta6_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE: 

This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info.Panel_Id. 


EXCEPTIONS ; 


--I  TAE .UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Pane 1 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

: =  X_W i ndows . Nu 1 l_Wi ndow  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info. Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--1  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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-- I  TAE . UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--1  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
--I  created 

--I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE; 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
-- I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

-- I  TAE . Ta6_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 
id. 


NOTES : 


--I  Info .  Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

» 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_lbselect ; 
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2.  PAN_LBSELECT_B.A 

__  ***  taE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_lbselect_b.a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_lbselect  --  Package  BODY 

_  _  it 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global , Text_IO ; 

--  One  "with"  statement  for  each  connected  panel, 
with  Pane 1_1 ibr ary ; 
with  Panel_mainmenu; 

package  body  Panel_lbselect  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  paraimeter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  neune  is  changed  (not  title) 

For  panel: 

Ibselect 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

selection,  cancel,  ok 
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- -ADDED 

libr  :String  (1..10):=  (others=>'  ' ) ; 

package  integer_inout  is  new  Text_IO . integer_io ( integer ) ; 
use  integer_inout ; 


Initialize_Panel  --  Subprogram 

BODY 

procedure  Initialize_Panel 
{  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt .Event_Context; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info. Collection,  " lbselect_v“ ,  Info.View); 
TAE.Tae_Co.Co_Find  (Info. Collection,  “ lbselect_t " ,  Info .Target ) ; 

exception 

when  TAE . UNINITIALIZED_PTR  => 

Text_IO. Put_Line  ( " Panel_lbselect . Initialize_Panel : 

Sc  "Collection_Read  not  initialized."); 
raise; 

" 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( ” Panel_lbselect . Initialize_Panel : 

Sc  “(View  or  Target)  not  in  Collection."); 
raise ; 

" 

end  Initialize_Panel ; 

Create_Panel  --  Subprogram 

BODY 

procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 
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:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 


if  Info. Panel  Id  =  Tae.Null  Panel_Id  then 


T.^ . Tae_Wpt . Wpt_NewPane 1 
(  Dummy 
Data_Vm 
View_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 


=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 
=>  Info, 

=>  Panel_State, 

=>  Info. Panel_Id  ) ; 


else 

Text_IO . Put_Line  {"Panel  (Ibselect)  is  already  displayed, 
end  if; 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_lbselect .Create_Panel :  " 

Sc  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO .  Put_Line  ( "  Panel_lbselect  .Create_Panel  -. 

Sc  "Panel  could  not  be  created-"); 
raise; 


end  Create_Panel ; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


--ADDED 

Libcontent  :  file_type; 
len  :  integer :=1; 

Dummy  :  Boolean; 
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begin  --  Connect_Panel 


if  Info . Panel_Id  =  Tae.Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State ) ; 

--ADDED 

open (Libcontent , mode=>in_f ile, naine=>" libcontent ” ) ; 
get { Libcontent , 1 ib_count , 1 ) ; 
skip_line (Libcontent ) ; 
for  I  in  l..lib_count  loop 
get_line (Libcontent , lib_vec (I) .all, len) ; 
skip_line (Libcontent ) ; 
end  loop ; 

TAE .Tae_Wpt .Wpt_SetStringConstraints ( Info. Panel_Id, "selection" , taeint ( li 
b_count )  ,  lib_vec)  ; 

Diiinmy :  =TAE .  Tae_Wpt .  Wpt_Pending  ; 
end  i  f  ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_lbselect .Connect_Panel :  " 

Sc  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


De  s  t  roy_Pane 1 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 


begin  --  Destroy_Panel 

TAE .Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IQ . Put_Line  ( " Panel_lbselecc .Destroy_Panel : 

St  " Info . Panel_Id  is  an  invalid  id."); 
raise; 
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when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
nu  1 1  ; 

end  Destroy_Panel ; 


- ■f  +  +  +  *f*f  +  +  +  +  +  4'4>  +  *f  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  'f  +  +  +  +  +  +  +  +  +  'f-f  +  +  +  +  +  4'  +  +  4--f4--f  +  -f  +  +  + 

--  begin  EVENT  HANDLERS 


select ion_Event 


--  Subprogram!  SPEC  &  BODY 


procedure  selection_Event 

(  Info  ;  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  select ion_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm. Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Value(l)); 
else 
null  ; 

end  if;  , 

--ADDED 

libr (1. .10) :=Value(l) (1. .10) ; 

--  End  default  generated  code 
end  selection_Event ; 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 
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(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGS IZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)  ); 
else 
null  ; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_library .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE .Tae_Wpt .Wpt_PanelReset ( Info . Panel_Id) ; 
end  cancel_Event ; 


ok_Event 


--  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..!)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  ok_Event 

--  Begin  default  generated  code 
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TAE.Tae_Vin.Vm_Extract_Count  ( Info . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.  ViT\_Extract_SVAL  ( Info .  Parin_Ptr ,  1,  Value(l)); 
else 
null  ; 
end  i f ; 

--ADDED 

library  :=  libr; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_maininenu .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
end  ok_Event; 


--  end  EVENT  HANDLERS 


Dispatch_Item 


Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("selection",  User_Context_Ptr . Parm_Name )  then 
select ion_Event  (User_Context_Ptr) ; 
elsif  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Neune)  then 
cancel_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  ("ole",  User_Context_Ptr .  Parm_N5une)  then 
ok_Event  (User_Context_Ptr ) ; 
end  i f ; 

end  Dispatch_Item; 
end  Panel_lbselect ; 
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H.  PANEL  MAINMENU  PACKAGE 


1.  PAN_MAINMENU_S.A 

__  •*»  Plus  Code  Generator  version  V5 . 1 

--  ***  File  :  pan_maininenu_s  .a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  ★ 

*  Pane l_ma inmenu  --  Package  SPEC 

_  ★ 


with  TAE; 
with  X_W i ndows ; 

package  Panel_mainmenu  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  mainmenu 
These  subprograms  enable  panel  initialization,  creation,  destruction 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 


- -  I  REGENERATED : 

--I  The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

--I  The  panel's  name  is  changed  (not  title) 

-- I  For  panel ; 

-- I  mainmenu 


Info  :  TAE.Tae_Wpt.Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  i  n  X_W  i  ndows  .  W  i  ndow 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info. Panel_Id. 


EXCEPTIONS ; 


--I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
{  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Wi ndows .Window 

:  =  X_W  i  ndows  .  Nu  1 1_W  i  ndow  )  ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

-- I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info. Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--1  EXCEPTIONS: 

--1  TAE . Tae_Wpt . BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 
id. 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Di spat ch_I tern 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Pane l_ma inmenu; 
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2.  PAN  MAINMENU  B.A 


*»♦  taE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_maininenu_b . a 

.**  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_mainmenu  --  Package  BODY 

.  _  * 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global ; 

--  One  “with"  statement  for  each  connected  panel. 

with  Panel_lbselect ; 

with  Panel_compsel ; 

with  Panel_addf ile; 

with  Panel_keyword; 

with  Panel_query; 

package  body  Pane l_ma inmenu  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parcuneter  name  and  ''_Event''. 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 


REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
mainmenu 


The 


following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
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- 1 


An  item's 
For  the  panel 
cancel , 
query 


connection 
items : 

help, 


information  changed 
browse, 


--ADDED 
operator_f ile 
type_f ile 
operator_list 
type_list 
Dummy 


f ile_type ; 
f ile_type; 

String (1. .13) :  =  "operator_list "  ; 
String { 1 . . 9 ) : =“ type_list “ ; 
Boolean; 


component , 


Initialize_Panel  --  Subprogram 

BODY 

procedure  Initialize_Panel 
{  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt .Event_Context; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  { Info .Collection,  "mainmenu_v“ ,  Info.View); 
TAE.Tae_Co.Co_Find  ( Info .Collection,  "mainmenu_t " ,  Info.Target) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_mainmenu . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

H 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_mainmenu. Initialize_Panel • 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

H 

end  Initialize_Panel ; 

Create_Panel  --  Subprograim 

BODY 

procedure  Create_Panel 
(  Panel_State 
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:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  i n  X_W i ndows . W i ndow 

:=  X_Windows .Null_Window  )  is 

begin  --  Create_Panel 


if  Info. Panel  Id  =  Tae.Null  Panel  Id  then 


TAE . Tae_Wpt . Wpt_NewPane 1 
{  Dummy 
Data_Vm 
View_Vm 

Relative_Wi ndow 
User_Context 
Flags 
Panel  Id 


—  HI* 

=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 
=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  )  ; 


else 

Text_IO . Put_Line  (“Panel  (mainmenu)  is  already  displayed, 
end  i f ; 


)  ; 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO.Put_Line  ( "Panel_mainmenu.Create_Panel :  • 

Sc  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( "Panel_mainroenu .Create_Panel : 

Sc  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel 


--  Subprograun  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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begin  --  Connect_Panel 


if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State ) ; 
end  i f ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( “Panel_maimnenu.Connect_Panel :  " 

St  “Invalid  panel  state.")  • 
raise ; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 


begin  --  Destroy_Panel 

TAE .Tae_Wpt , Wpt_PanelErase ( Info. Pane l_Id) ; 
exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_mainmenu.Destroy_Panel :  " 

St  " Info. Panel_Id  is  a,n  invalid  id.*); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 


--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
--  begin  EVENT  HANDLERS 
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cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

{  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE. Tae_Taeconf . STRINGS I 2E) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_lbselect .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 


brows e_Event 


Subprogram  SPEC  &  BODY 


procedure  brows e_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

N  : integer :=1; 

begin  --  browse_Event 
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--  Begin  default  generated  code 

TAE.Tae_Vm. Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info. Parm_Ptr ,  1,  Value(l)); 
end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 

strlen ( library , N) ; 

if  TAE  .Tae_Misc .  s_equal  (Valued),  "Types")  then 

system_call  (com&"tl  “Sdibrary  ( 1 .  .N) &“  "St“type_list“ )  ; 
list_components (type_f ile, type_list, f ile_vec, num_of_comp) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Panel_compsel . Info . Panel_Id, “ comps e 
1 " ,  taeint  (nuin_of_comp)  ,  f  ile_vec)  ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( “rm  type_list"); 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_compsel .Connect_Panel  {TAE.Tae_Wpt .WPT_VISIBLE) ; 

elsif  TAE.Tae_Misc  .s_equal  (Valued),  “Operators")  then 

system_call (com&'ol  "Sdibrary (1 . .N) &"  "&"operator_list" ) ; 

list_components (operator_file,operator_list, f ile_vec, num_of_comp) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Panel_compsel . Inf o . Panel_Id , “ compse 
1“ , taeint (num_of_comp) , f ile_vec) ; 

Dummy ; =TAE .Tae_Wpt . Wpt_Pending; 
system_call ( "rm  operator_list" ) ; 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_compsel .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 
end  i f ; 

--  End  generated  code  for  Connection 
end  browse_Event ; 


component_Event 


--  Subprogreun  SPEC  &  BODY 


procedure  component_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (!..!)  of  String  (1 . .TAE. Tae_Taeconf .STRINGS I ZE) ; 
Count  :  TAE. Taeint; 
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I,C  :  Inter; -3^=1; 

D  : Integer : =0 ; 

ls_file  :file_type; 

f ile_name ; String { 1 .. 7 )  :=  “ls_file"; 

current  ; String  (1..80):=  (others=>'  •); 
number  : Integer :=1; 

Dummy  : Boo 1 ean ; 

begin  --  component_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)  ); 

end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
if  TAE.Tae_Misc . s_equal  (Value(l),  "Add")  then  null; 
system_call ( "pwd  >  directory_file"); 

read_directory (directory_f ile, directory_f ile_name.  Directory)  ; 
strlen (Directory, D) ; 
loop 

if  Directory (I)  =  '/’  then 

current_directory (cur_dir_index) (1. .C+1) :=current(l. .C- 

D&V 

cur_dir_index : =cur_dir_index+l ; 

C:=l; 

else 

current ( C ) : =Directory ( I ) ; 

C:=C+1; 
end  i f ; 

I:=I+1; 

if  I=D+1  then  exit; 
end  if; 
end  loop; 

current_directory (cur_dir_index) (1 . .C+1) : =current ( 1 . .C-1) &“ /  ” ; 
if  D>27  then  , 

directory _array  :=  Directory ( {D-26) . -D) ; 
else 

directory_array  :=  Directory (1. .27) ; 
end  i f ; 

system_call  ( ■  Is  -F  "ScDirectory  ( 1 .  .  D) &"  >  ls_f  ile" )  ; 

list_directory (ls_file, file_namo, file_vec, number) ; 


TAE .Tae_Wpt .Wpt_SetStringConstraints ( Pane l_addf ile . Info . Panel_Id, “ selpsd 
1“ , taeint (number) , file_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints (Panel_addf ile. Info. Panel_Id, "selspe 
c" , taeint (number) , f ile_vec) ; 
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TAE.Tae_Wpt .Wpt_SetStringConstraints ( Panel_addf ile . Info . Pane l_Id, "selbod 
y" , taeint (number) , f ile_vec) ; 

TAE.Tae_Vm. Vm_SetString ( Panel_addf ile . Info .View, " psdldi rectory " , 1, direct 
ory_array , TAE . Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Panel_addf ile . Info . Panel_Id, "psdldirectory “ , P 
anel_addf ile . Info .View, "psdldirectory" ) ; 

TAE . Tae_Vm . Vm_SetStr ing ( Pane l_addf ile . Inf o .View, " speed i rectory “,1, direct 
ory_array , TAE . Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Pane l_addf ile . Info . Panel_Id, "speedi rectory" , P 
anel_addf ile . Info .View, " specdirectory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Pane l_addf ile .Info .View, "bodydi rectory  , 1 , direct 
ory_array , TAE . Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Pane l_addf ile . Info . Panel_Id, "bodydi rectory" , P 
anel_addf ile . Info .View, "bodydi rectory" ) ; 

Dummy: =TAE.Tae_Wpt .Wpt_Pending; 

system_call ( “rm  ls_file"); 
system_call ( " rm  directory_f ile" ) ; 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_addf ile .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
Component_add : =TRUE ; 

elsif  TAE.Tae_Misc.s_equal  (Value(l),  “Update")  then  null; 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_addf ile .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
Component_update : =TRUE ; 

end  i f ; 

--  End  generated  code  for  Connection 
end  component_Event ; 


query _Event  --  Subprogram  SPEC  &  BODY 


procedure  query_Event 

(  Info  :  in  TAE. Tae_Wpt .Even t_Context_Ptr  )  is 
--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 
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Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE .  Tae  int  ; 

Dummy : Boo 1 ean ; 

D  :  Integer ; =0 ; 

I,C  :  Integer : =1  ; 
number  : integer : =1 ; 

current :String  (1..80):=  (others=>'  *); 
ls_f ile : f ile_type; 

file_name:  String(1..7)  :=  “ls_file"; 
begin  --  query_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.  Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

if  TAE  .Tae_Misc .  s_equal  (Valued),  “Keyword*)  then 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_keyword.Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

elsif  TAE .Tae_Misc . s_equal  (Valued),  "PSDL")  then 
strlen (path, D) ; 

Directory ( 1 . .D) : =  path(l..D); 
loop 

if  Directory (I)  =  '/'  then 

current_directory (cur_dir_index) (1..C+1) : =current (1 . .C 

1)&"/  "; 

cur_dir_index : =cur_dir_index+ 1 ; 

C:=l; 

else 

current (C) : =Directory  ( I)  ; 

C:=C+1; 
end  i f ; 

I:=I+1; 

if  I=D+1  then  exit; 
end  if; 
end  loop; 

current_directory (cur_dir_index) (1 . .C+1) : =current (1 . .C-1) &" / 
if  D>27  then 

directory_array  :=  Directory ( (D-26) . .D) ; 

else 

directory_array  :=  Directory (1 .. 27 ) ; 
end  i f ; 

system_call  ( "  Is  -F  “StDirectory  (1 .  .  D) >  "&*  ls_f  ile" )  ; 
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list_directory ( ls_f ile, f ile_ncime, f ile_vec, number) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Panel_query . Info . Panel_Id, "psdlsele 
ct “ , taeint (number) , f ile_vec ) ; 

TAE . Tae_Vm. Vm_SetStr ing { Panel_query . Info .V lew, "directorylabel “ , 1 , directo 
ry_ar ray , TAE . Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate { Panel_query -  Info . Panel_Id, "directorylabel " ,  Pa 
nel_query . Info .View, “directorylabel “ ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_cal 1 ( " rm  ls_file"); 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_query .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

end  i f ; 

--  End  generated  code  for  Connection 
end  qu e ry_E ve n t ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
begin  --  Dispatch_Item 

t 

if  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc .s_equal  ("browse",  User_Context_Ptr . Parm_Neune)  then 
browse_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc.s_equal  ("component",  User_Context_Ptr . Parm_Name) 
then 

component_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc .s_equal  ("query",  User_Context_Ptr . Parm_Neune )  then 
query_Event  (User_Context_Ptr) ; 
end  if; 

end  D i spat ch_I tern; 
end  Panel_mainmenu; 
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L  PANEL  ADDFILE  PACKAGE 


1.  PAN_ADDFILE_S.A 

__  ***  xaE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_addf ile_s .a 

--  •**  Generated  :  May  21  16:12:31  1992 

--  ***  Revised  by  :  Dogan  Ozdemir 

.  «  ★ 

*  Panel_addf ile  --  Package  SPEC 

_  ♦ 


with  TAE; 
with  X_Windows; 

package  Panel_addf ile  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:  addfile 
These  subprogreiins  enable  panel  initialization,  creation,  destruction 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
file : 

The  panel's  neune  is  changed  (not  title) 

For  panel: 
addfile 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initiali ze_Pane 1 


--  Subprogrcun  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt .WPT_PREFERRED; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info.Panel_Id. 


EXCEPTIONS i 


--1  TAE .UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE  .Tae_Wpt  .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

: =  X_W i ndows . Nu 1 1_W i ndow  ) ; 


—  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info. Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 
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--I  EXCEPTIONS: 

- -  I  TAE . UNINITIALIZED_PTR 
--I  not  initialized 


TAE.TAE_FAIL  is  raised 


is  raised  from  Create_Panel  if  the  panel  is 
from  Create_Panel  if  the  panel  could  not  be 


created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if 
Panel_State  is  an  invalid  state 


the  panel  exists  and  the 


Destroy_Panel 


Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 
id . 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_addf ile; 
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2.  PAN_ADDFILE_B.A 

__  ***  -pAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_addf ile_b.a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panei_addf ile  --  Package  BODY 

.  —  * 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global , Text_IO ; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mainmenu; 


package  body  Panel_addf ile  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  “event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  ’'_Event"  . 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel; 
addf ile 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  n^une  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

selpsdl,  selbody,  selspec,  cancel, 

ok,  inpsdl,  inspec,  inbody. 
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specdirectory ,  bodydirectory 


psdldirectory , 


--ADDED 

psdlf ile 

specf ile 

body  file 

err_string 

ls_f ile, error_f ile 

f ile_name 

error_fname 

number 


String  (1..80) 
String  { 1 . . 80 ) 
String  { 1 . . 80 ) 
String  ( 1 . . 80 ) 
f ile_type; 
String { 1 . . 7 )  ; 
String ( 1 .  .  9 )  ; 
integer : =1 ; 


: =  (others=> ‘  ' ) ; 

: =  (others=> '  ' ) ; 

: =  {others  =  >  '  '  )  ; 

:  =  (others  =  > '  ‘  )  ; 

=  “ls_fi’e“; 

=  “errorf ile" ; 


Initialize_Panel 


--  Subprogram  BODY 


procedure  Initiali2e_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE .Tae_Wpt .Event_Context ; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  (Info. Collection,  "addfile_v",  Info.View); 
TAE.Tae_Co.Co_Find  (Info. Collection,  "addfile_t",  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_I0 . Put_Line  ( " Panel_addf ile . Initialize_Panel :  " 

&  "Collection_Read  not  initialized."); 
raise;  , 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_I0 . Put_Line  ( ■ Panel_addf ile . Initialize_Panel :  " 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 
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procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 


if  Info. Panel  Id  =  Tae.Null  Panel  Id  then 


TAE . Tae_Wpt . Wpt_NewPane 1 
{  Dummy 
Data_Vm 
View_Vm 

Relative_Window 
User_Context 
Flags 
Panel  Id 


=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 
=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  ) ; 


else 

Text_IO . Put_Line  ("Panel  (addfile)  is  already  displayed, 
end  i f ; 


)  ; 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_addf ile .Create_Panel :  ” 

&  “Panel  was  not  initialized  prior  to  creation.’’); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_addf ile .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
{  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

; =  TAE .Tae_Wpt . WPT_PREFERRED; 
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Relative_Window 

:  in  X_Windows  .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae . Null_Panel_Id  then 
Create_Panel 

{  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE . Tae_Wpt . Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 
end  i f ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_addf ile .Connect_Panel :  “ 

St  "Invalid  panel  state."); 
raise ; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_ Panel  is 


begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase{Info.Panel_Id) ; 

f 

exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( ■Panel_addfile.Destroy_Panel :  " 

St  ■  Info . Panel_Id  is  an  invalid  id.’); 
raise; 

when  TAE.Tae_Wpt .ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 
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—  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  -*■  +  +  +  +  +  ■*-  +  +  ■»•  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 
--  begin  EVENT  HANDLERS 


selpsdl_Event 


--  Subprogram  SPEC  &  BODY 


procedure  selpsdl_Event 

{  Info  :  in  TAE.Tae_Wpt .Event_Contexc_Ptr  )  is 


is  a 


PURPOSE: 

EVENT  HANDLER.  Insert  application  specific  information. 
NOTES:  This  procedure  reads  the  selected  item  and  determines 
directory  or  a  psdl  file. 


if  it 


Value  :  array  (1..1)  of  String  { 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

N,M,K,S  :  integer :=1; 

Dummy  :Boolean; 

psdl_vec : s_vector ( 1 . . 1) : =  (others=>  new  STRING ( 1 .. 80 )) ; 
begin  --  selpsdl_Event 


--  Begin  default  generated  code 


TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  {Info.Parm_Ptr,  1,  Value(l)); 
else 
null  ; 
end  i f ; 

--ADDED 

psdlfiled.  .80)  :=Value{l)  (1.  .80)  ; 
parse_line (psdlf ile)  ; 
strlen (psdlf ile, N) ; 
strlen (Directory , M) ; 


if  l3_a_directory  then 
K:=N+M; 

cur_dir_index : =cur_di r_index+ 1 ; 

Current_directory (cur_dir_index) (1..N) : =psdlf ile ( 1 . .N)  ; 
for  node  in  (N+l)..80  loop 
Current_directory (cur_dir_index) (node) :='  ' ; 
end  loop; 

Directory  ( 1 .  .K)  :  =Directory  ( 1 .  .M) &  " / "Stpsdlf  ile ( 1 .  .  (N-1)  )  ; 
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if  K>27  then 

directory_array  :=  Directory ( (K-26) . .K) ; 

else 

directory _array  : =  Directory ( 1 . . 27 ) ; 
end  if; 

TAE.Tae_Vm. Vm_SetString ( Info .View, “psdldirectory “ , 1 , directory _array, TAE . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, “psdldirectory" , Info. View, “psdl 
directory" ) ; 

TAE.Tae_Vm. Vm_SetString ( Info. View, "specdirectory" , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, “specdirectory" , Info .View, " spec 
directory" ) ; 

TAE .Tae_Vin. Vm_SetString ( Info .View, "bodydirectory " , 1 , directory_array, TAE. 
Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt .Wpt_ViewUpdate ( Info . Panel_Id, "bodydirectory", Info. View, "body 
directory" ) ; 

system_call ( " Is  -F  "^Directory ( 1 . .K) &"  >  "&" ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_naine, file_vec, number ) ; 

TAE.Tae_Wpt .Wpt_SetStringConstraints ( Info . Panel_Id, "selpsdl" , taeint (numb 
er) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selspec" , taeint (numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selbody" ,  taeint (numb 
er ) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  ls_file"); 

Is_a_directory : =FALSE; 

elsif  Upper_directory  then 

strlen (Current_directory (cur_dir_index) ,S) ; 
for  drct  in  (M-S+l)..80  loop 
Directory (drct ) :='  ' ; 
end  loop ; 

if  {M-S)>27  then 

directory _array  :=  Directory { ( (M-S) -26) . . (M-S) ) ; 

else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 
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TAE .Tae_Vm. Vro_SetString ( Info .View, “psdldirectory “ , 1, directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, “psdldirectory" , Inf o .View,  “psdl 
directory" ) ; 

TAE. Tae_Vm,Vm_SetSt ring ( Info .View, " specdirectory “ , 1, directory _array, T.AE . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "specdirectory" , Info .View,  " spec 
directory" ) ; 

TAE .Tae_Vm.Vm_SetSt ring ( Info .View, "bodydirectory " , 1, directory_array , T.AE . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, “bodydirectory" , Info .View, "body 
directory" ) ; 

cur_dir_index : =cur_dir_index-l; 

system_call ( “ Is  -F  “&Directory (1 . . (M-S) ) &“  >  ls_f ile" ) ; 

list_directory  ( ls_f  ile,  f  ile_nciine,  file_vec,  number )  ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " selpsdl " , taeint (numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selspec" , taeint (numb 
er) , f ile_vec) ; 

TAE. Tae_Wpt .Wpt_SetStringConstraints (Info. Panel_Id, "selbody" , taeint (numb 
er) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_caiL ( "rm  ls_file“); 

Upper_directory : =FALSE; 

else  --A  file  neune  is  selected 
psdl_vec(l) .all : =psdl file; 

t 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "inpsdl" , l,psdl_vec) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  i f ; 

--  End  default  generated  code 
end  selpsdl_Event ; 


selbody_Event 


--  Subprogram  SPEC  &  BODY 
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procedure  selbody_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 


--I  NOTES: 
is  a 


This  procedure  reads  the  selected  item  and  determines  if  it 
directory  or  a  implementation  body  file. 


Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

N,M,K,S  :  integer:=l; 

Dummy  :  Boolean; 

body_vec :  s_vector ( 1 . . 1 ) : =  (others=>  new  STRING ( 1 ..80)); 


begin  --  selbody_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Value(l)); 
else 
null ; 
end  if; 

--ADDED 

bodyfiled.  .80)  :=Value(l)  {1..80); 
parse_line ( body file) ; 
strlen (bodyf ile,N) ; 
strlen(Directory,M) ; 

if  Is_a_directory  then 
K:=N+M; 

cur_dir_index : =cur_dir_index+l ; 

Current_directory  {cur_dir_index)  (1.  .N)  :=body filed.  .N)  ; 
for  node  in  (N+l)..80  loop 

Current_directory (cur_dir_index) (node) :='  ' ; 

end  loop; 

Directory  (1 .  .K)  :  =Directory  (1 .  .M)  &  “  /  "Sibodyf  ile  (1 .  .  (N-1 )  )  ; 


if  K>27  then 

directory _array  :=  Directory ( (K-26 ). .K) ; 

else 

directory_array  :=  Directory (1. .27) ; 
end  if; 


TAE .Tae_Vm. Vm_SetString ( Info .View, "pedldirectory " , 1, directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate ( Info . Panel_Id, "psdldirectory " , Info .View, “psdl 
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directory" ) ; 


TAE . Tae_Vm. Vm_SetString ( Info .View, “specdirectory " , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, “ specdirectory" , Info .View, "spec 
directory " ) ; 

TAE. Tae_Vm .Vm_SetSt ring ( Info .View, "bodydirectory " , 1 , directory_array , TAE . 
Tae_Vm. P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "bodydirectory" , Info .View, "body 
directory" ) ; 

system_call ( " Is  -F  "&Directory ( 1 . .K) &"  >  "&" ls_f ile" ) ; 
list_directory  ( ls_f  ile,  f  ile_name,  f  ile_vec,  number)  ,- 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " selpsdl " , taeint (numb 
er) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selspec" , taeint (numb 
er) , f ile_vec) ; 

TAE. Tae_Wpt .Wpt_SetStringConstraints (Info. Panel_Id, "selbody" , taeint (numb 
er ) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  ls_file"); 

Is_a_directory : sFALSE; 

els if  Upper_directory  then 

strlen (Current_directory (cur_dir_index)  ,S) ; 
for  drct  in  (M-S+l)..80  loop 
Directory (drct ):= •  ' ; 

end  loop; 

if  (M-S)>27  then 

directory _array  :=  Directory (( (M-S) -26) .. (M-S) ) ; 

else 

directory_array  :=  Directory ( 1 . .27 ) ; 
end  i f ; 

TAE.Tae_Vm. Vm_SetString ( Info. View, "psdldirectory " , 1, directory _array , TAE. 
Tae_Vm. P_UPDATE) ; 

TAE .Tae_Wpt .Wpt_ViewUpdate { Info . Panel_Id, "psdldirectory" , Info .View, "psdl 
directory" ) ; 

TAE . Tae_Vm . Vm_SetSt r ing ( Inf o . View, " specdirectory " , 1 , directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE. Tae_Wpt.Wpt_ViewUpdate( Info. Panel_Id, "specdirectory", Info. View,  "spec 
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directory* ) ; 


TAE . Tae_Vm . Vm_SetString ( Inf o .View, "bodydirectory “ , 1 , direcCory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, "bodydirectory", Info. View, "body 
directory" ) ; 

cur_dir_index : =cur_dir_index-l ; 

system_call ( " Is  -F  "&Directory ( 1 . . (M-S) ) & "  >  ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_naine, f ile_vec, number ) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selpsdl " , taeint ( numb 
er ) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info. Panel_Id, "selspec" , taeint (numb 
er) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selbody * , taeint (numb 
er ) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  ls_file"); 

Upper_directory ; =FALSE ; 

else 

body_vec(l) .all : =bodyf ile; 

TAE.Tae_Wpt .Wpt_SetStringConstraints ( Info . Panel_Id, "inbody" , 1, body_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  i f ; 

--  End  default  generated  code 
end  selbody _Event; 


selspec_Event 


--  Subprogram  SPEC  &  BODY 


procedure  selspec_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


--  I 
--  I 
is  a 


PURPOSE : 

EVENT  HANDLER.  Insert  application  specific  information. 

NOTES:  This  procedure  reads  the  selected  item  and  determines  if  it 
directory  or  a  implementation  spec  file. 
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Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

N,M,K,S  ;  integer :=1; 

Dummy  :  Boolean; 

spec_vec:  s_vector ( 1 . . 1 ) : =  (others=>  new  STRING ( 1 .. 30 )) ; 
begin  --  selspec_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count), - 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info. Parm_Ptr,  1,  Value(l)); 
else 
nu  1 1  ; 
end  i f ; 

--ADDED 

spec file : =Value ( 1 )  ( 1 .  . 80 )  ; 
parse_line ( specf ile) ; 
strlen ( specf ile, N) ; 
strlen(Directory,M) ; 

if  Is_a_directory  then 
K:=N+M; 

cur_dir_index : =cur_dir_index+l ; 

Current_directory (cur_dir_index) { 1 . .N) : =specf ile ( 1 . .N) ; 
for  node  in  (N-*-l).-80  loop 

Current_directory (cur_dir_index) (node) ; 
end  loop; 

Directory ( 1 . .K) : =Directory ( 1 . .M) &" / "&specf ile ( 1 . . (N-1) ) ; 
if  K>27  then 

directory _array  :=  Directory ( {K-26) . .K) ; 

else 

directory _array  :=  Directory (1. .27) ; 

end  i f ; 

TAE .Tae_Vm.Vm_SetSt ring ( Info .yiew, "psdldirectory " , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt .Wpt_ViewUpdate ( Info . Panel_Id, "psdldirectory " , Info. View, "psdl 
directory" ) ; 

TAE. Tae_Vm.Vm_SetSt ring ( Info .View, "specdirectory " , 1 , directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_Wpt .Wpt_ViewUpdate { Info . Panel_Id, "specdirectory", Info. View, "spec 
directory" ) ; 

TAE.Tae_Vm. Vm_SetString ( Info .View, "bodydi rectory" , 1 , directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 
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TAE.Tae_Wpt . Wpt_ViewUpdate ( Info. Panel_Id, "bodydirectory “ , Info. View, “body 
directory" ) ; 

system_call ( " Is  -F  “&Directory { 1 . .K) &”  >  "&"ls_file" ) ; 
list_directory  { ls_f  ile,  f  ile_najtie,  f  ile_vec,  number)  ; 

T.ZiE  .  Tae_Wpt .  Wpt_SetStringConstraints  ( Info .  Panel_Id,  “  selpsdl " ,  taeint  (numb 
er)  ,  f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, “selspec" , taeint ( numb 
er ) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "selbody " , taeint  < numb 
er) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call  ( “rm  ls_file''); 

Is_a_directory : =FALSE; 

elsif  Upper_directory  then 

strlen (Current_directory (cur_dir_index) ,S) ; 
for  drct  in  (M-S+l)..80  loop 
Directory (drct ):= ■ 
end  loop; 

if  (M-S)>27  then 

directory_array  :=  Directory (( (M-S) -26) .. (M-S) ) ; 

else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  i f ; 

TAE. Tae_Vm.Vm_SetSt ring ( Info. View, "psdldirectory " , 1, directory _ar ray , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt.Wpt_ViewUpdate(Info.Panel_Id, "psdldirectory" , Info. View,  "psdl 
directory" ) ; 

TAE.Tae_Vm. Vm_SetString ( Info., View, "specdirectory " , 1, directory _array,  TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt .Wpt_ViewUpdate{Info.Panel_Id, "specdirectory", Info. View, "spec 
directory" ) ; 

TAE. Tae_Vm.Vm_SetSt ring ( Info. View, "bodydirectory" , 1, directory _array,  TAE . 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt.Wpt_ViewUpdate(Info.Panel_Id, "bodydirectory", Info. View, "body 
directory" ) ; 

cur_dir_index: =cur_dir_index-l; 

system_call  (  "Is  -F  "&Directory(l. . (M-S) )&"  >  "&" ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_name, file_vec, number ) ; 
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TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, “ selpsdl “ ,  taeint (numb 
er ) , f ile_vec ) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, " selspec" , taeint (numb 
er ) , f ile_vec ) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info. Panel_Id, “selbody “ , taeint ( numb 
er ) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  ls_file“); 

Upper_directory : =FALSE ; 

else 

spec_vec(l) . all : =specf i le ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info. Panel_Id, " inspec" , 1 , spec_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  if; 


--  End  default  generated  code 
end  selspec_Event ; 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE. Taeint ; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info. Parm_Ptr ,  1,  Valued)  ); 
else 
null; 
end  i f ; 

--  End  default  generated  code 
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--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_rNVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset { Info. Panel_Id) ; 

for  J  in  1 . . 80  loop 
Directory (J) := ' 
end  loop; 

for  K  in  1 . . cur_dir_index  loop 
for  L  in  1 . . 80  loop 

current_directory (K) (L) :=’  ' ; 
end  loop; 
end  loop; 

for  A  in  1..27  loop 

directory _array (A) := ‘  *; 
end  loop ; 
cur_dir_ index ; =1 ; 
end  cancel_Event ; 


ok_Event 


--  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

--I  NOTES:  After  all  the  files  are  selected,  this  procedure  activates  the 
--I  software  base  and  adds/updates  the  component. 

Value  :  array  (1..1)  of  String  (1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N, M, L, K, J, S ; Integer : =1 ; 


begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm. Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm. Vm_Extract_SVAL  { Info . Parm_Ptr ,  1,  Value(l)); 
else 
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null  ; 
end  i f ; 

global . strlen (psdlfile, N) ; 
global . strlen (specf lie, M) ; 
global . strlen (bodyfile,  L)  ; 
global . strlen (Directory,  K) ; 
global .strlen ( library, J) ; 

if  Component_add  then 

global .  system_call  ( com&“ca  "Stlibrary  ( 1 .  .  J)  & "  "&Directory  ( 1 .  . K)  & 
ipsdlf ile ( 1 . .N) & "  "&Di rectory ( 1 . .K) &“ / "&specf ile ( 1 . .M) 

£cDirectory  ( 1 .  .K) &”  /  "&bodyf  ile  ( 1 .  .L) &“  >  "£cerror_fname)  ; 

global .errorstring(error_f ile, error_fname, err_string) ; 
global . strlen ( err_string,  S)  ; 
if  S>1  then 

TAE .Tae_Wpt . Wpt_PanelMessage ( inf o . pane l_id, err_string) ; 

S:=l; 
end  i f ; 

global .  system_call  (“  rm  ''&error_fname)  ; 
for  ESA  in  1..80  loop 

err_string (ESA) : = '  ' ; 

end  loop; 

Coinponent_add :  =FALSE  ; 
elsif  Component _Update  then 

global .  system_call  (com&"cu  "Stlibrary  ( 1 .  .  J)  St"  "StDirectory  ( 1 .  .K)  St 
Stpsdlf  ile  ( 1 .  .N)  St"  "StDirectory  ( 1 .  .K)St"/"Scspecf  ile  ( 1 .  .M)  St" 

StDirectory  ( 1 .  .K)  St"  /  "Stbodyf  ile  ( 1 .  .L) St"  >  "Sterror_fname)  ; 

global . errorstring (error_f ile, error_fname, err_string) ; 
global . strlen (err_st ring,  S) ; 
if  S>1  then 

TAE .Tae_Wpt . Wpt_PanelMessage ( info .pane l_id, err_string) ; 
S:=l; 
end  i f ; 

global .  system_call  ( "rm  "Sterror_fname)  ; 
for  ESU  in  1..80  loop 

err_string (ESU) : = '  ' ; 

end  loop; 

Component_update : =FALSE ; 
end  i f ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_mainmenu.Connect_Panel  (TAE .Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

TAE.Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
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for  X  in  1 .  .  80  loop 
Directory (X) : = '  ' ; 
end  loop; 

for  Y  in  1 . . cur_dir_index  loop 
for  P  in  1 .  .  80  loop 

current_directory (Y) (P) 
end  loop; 
end  loop ; 

for  AA  in  1..27  loop 

directory _array (AA) :='  ' ; 
end  loop; 
cur_dir_index : =1 ; 

end  ok_Event; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("selpsdl",  User_Context_Ptr . Parm_Name)  then 
selpsdl_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  ("selbody",  User_Context_Ptr . Parm_Name) 

then 

selbody _Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc.s_equal  ("selspec",  User_Context_Ptr . Parm_Name ) 

then 

selspec_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc . s_equal  ("ok",  User_Context_Ptr . Parm_Name )  then 
ok_Event  (User_Context_Ptr ) ; 
end  i f ; 

end  Dispatch_Item; 
end  Panel_addf ile ; 


224 
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PANEL  KEYWORD  PACKAGE 


1.  PAN_KEYWORD_S.A 

__  ***  Plus  Code  Generator  version  V5 . 1 

--  *■**  File  ;  pan_keyword_s  . a 

--  Generated  :  May  21  16:12:31  1992 

--  ***  Revised  by  :  Dogan  Ozdemir 

—  ♦ 

*  Panel_keyword  --  Package  SPEC 


with  TAE; 
with  X_W i ndows ; 

package  Panel_keyword  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:  keyword 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
file: 

The  panel's  name  is  changed  (not  title) 

For  panel: 
keyword 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Init ialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tac_Co.Collection_Ptr  );  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
-- I  panel 
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--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
{  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


--  Flags  sent  to  Wpt_NewPanel . 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info. Panel_Id. 


EXCEPTIONS  I 


--I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


- -  I  PURPOSE : 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
--I  Info.Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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--I  TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
--I  created 

--I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
-- I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 
id. 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Di spat ch_I tern 


Subprogreim  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE .Tae_Wpt . Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_keyword; 
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2.  PAN_KEYWORD_B.A 

__  ***  Plus  Code  Generator  version  V5.1 

--  ***  File  :  pan_keyv/ord_b.a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  _  ★ 

*  Panel_keyword  --  Package  BODY 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global ; 

--  One  “with"  statement  for  each  connected  panel, 
with  Panel_mainmenu; 
with  Panel_compsel ; 

package  body  Panel_keyword  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  naune  and  •_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
file : 

The  panel's  naune  is  changed  (not  title) 

For  panel: 
keyword 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  neune  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

kwavail,  kwselected,  cancel,  ok. 


228 


--ADDED 
kw_vec 
kwadd_vec 
kw_selected 
kw_list 
f ile_name 
number, index 


s_vector ( 1 . . 100 ) : =  (others=>  new  STRING(1..80)); 
s_vector ( 1 . . 15 ) : =  (others=>  new  STRING { 1 .. 80 )) ; 
String  (1..80):=  (others=>'  '); 
file_type; 

String(1..7)  :=  "kw_list“; 
integer : =1 ; 


Initialize_Panel 


--  Subprogram  BODY 


procedure  Initiali2e_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  : =  new  TAE . Tae_Wpt . Event_Context ; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  (Info. Collection,  "keyword_v*,  Info.View) ; 
TAE.Tae_Co .Co_Find  (Info. Collection,  "keyword_t",  Info .Target ) ; 

exception 

when  TAE. UNINITIAL I ZED_PTR  => 

Text_IO . Put_Line  ( " Panel_keyword. Initialize_Panel : 

&  "Coliection_Read  not  initialized."); 
raise ; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_I0 . Put_Line  ( " Panel_keyword. Initialize_Panel :  " 

&  "(View  or  Target)  npt  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create„Panel 


Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 
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Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 


if  Info . Panel_Id  =  Tae.Null 
TAE.Tae_Wpt . Wpt_NewPanel 
(  Dummy 
Data_Vm 
View_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 

else 

Text_IO . Put_Line  ("Panel 
end  i f ; 


,Panel_Id  then 


=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 

=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  ) ; 

keyword)  is  already  displayed. 


)  ; 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( "Panel_keyword.Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise ; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( "Panel_keyword.Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 


end  Create_Panel ; 


Connect_Panel 


--  Subprogr^un  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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--ADDED 
Dummy : Boolean ; 

dir  :  constant  String  :=“  $HOME/caps/src/software_base/ " 
L  ; integer  :  =1 ; 

begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

end  i f ; 


--ADDED 

strlen { library , L) ; 

system_call  (comSc“kwl  “^library  ( 1 .  .L) &"  “&"kw_list“ )  ; 
list_components (kw_list, f ile_name, kw_vec, number) ; 

TAE.Tae_Wpt .Wpt_SetPanelState  (Info.Panel_Id,  Panel_State) ; 

TAE.Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, ‘kwavail* , taeint (numb 
er )  ,  kw_vec ) ; 

Dummy ; =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  kw_list"); 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO. Put_Line  ( "Panel_keyword.Connect_Panel :  “ 

Sc  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


De  s  t  r oy_Pane 1 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 


begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase ( Info, Panel_Id) ; 
exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_keyword . Destroy_Panel : 
Sc  "  Info .  Panel_Id  is  an  invalid  id."); 
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raise; 


when  TAE.Tae_Wpt .ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
--  begin  EVENT  HANDLERS 


kwavai l_Event 


--  Subprogram  SPEC  &  BODY 


procedure  kwavai l_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 


Value  :  array  (1..1)  of  String  (1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 

Count  :  TAE.Taeint; 

begin  --  kwavai l_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm. Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value(l)); 
end  if;  > 

--ADDED 

kw_selected ( 1 . . 80 ) : =Value ( 1 ) ( 1 . . 80) ; 
kwadd_vec { index) .all : =kw_selected; 

TAE.Tae_Wpt .Wpt_SetStringConstraints { Info . Panel_Id, "kwselected* , taeint ( i 
ndex ) , kwadd_vec ) ; 

i ndex : = i ndex+ 1 ; 


--  End  default  generated  code 
end  kwava i l_Event ; 
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cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE . Tae_Vm . Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1 ,  Value ( 1 ) ) ; 
else 
null  ; 
end  i f ; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Pane l_ma inmenu. Connect_Panel  {TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 


--ADDED 

for  J  in  1.. (index-1)  loop 
for  K  in  1..80  loop 

kwadd_vec ( J) .all (K) : = '  ' ; 
end  loop; 
end  loop; 
index: =1 ; 

kw_selected(l. .5)  :=  ■  " ; 

TAE.Tae_Wpt .Wpt_PanelReset ( Info . Panel_Id) ; 

end  cancel_Event ; 


ok_Event 


--  Subprogreun  SPEC  &  BODY 
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procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..!)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N  :  integer :=1; 

kwquery_f ile :  file_type; 

Dummy  :  Boolean; 

kwq_outfile  :  file_type; 


begin  --  ok_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm. Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info. Parm_Ptr ,  1,  Value(l)); 
end  if; 

--ADDED 

if  kw_selected(l. .5)  =  “  “  then 

TAE.Tae_Wpt .Wpt_PanelMessage(info.panel_id, "NO  KEYWORD  IS 
SELECTED" ) ; 
else 

create (kwquery_f ile, mode=>out_f ile, name=>"query_f ile" ) ; 
for  I  in  1.. (index-1)  loop 

put_l ine ( kwquery_f ile, kwadd_vec ( I ) .all) ; 
end  loop; 

strlen (library , N) ; 

system_call  (comSc"kwq  "&library  ( 1 .  .N) &"  "&"query_f  ile"&" 
"&kwquery_outf ile) ; 

delete (kwquery_file) ; 

list_components (kwq_outf ile, kwquery_outf ile, f ile_vec, num_of_comp) ; 

TAE .Tae_Wpt .Wpt_SetStringConstraints (Panel_compsel . Info . Panel_Id, “compse 
1 " , taeint (num_of_comp) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  kwquery_outf ile" ) ; 


--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
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Panel_compsel .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 


--ADDED 


for  J  in  l..( index-1)  loop 
for  K  in  1 . . 80  loop 

kwadd_vec (J) .all (K) :=■ 
end  loop; 
end  loop; 
index :=1; 

kw_selected ( 1 . . 5 )  :=  “  "; 

TAE . Tae_Wpt . Wpt_PanelReset ( Inf o . Panel_Id) ; 

end  if; 

end  ok_Event ; 


--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item  . 

if  TAE .Tae_Misc . s_equal  ("kwavail",  User_Context_Ptr.Parm_Name)  then 
kwavail_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc.s_equal  (“cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 

elsif  TAE.TaeJlisc.s_equal  ("ok",  User_Context_Ptr . Parm_Name)  then 
ok_Event  (User_Context_Ptr ) ; 

end  i f ; 

end  Dispatch_Item; 
end  Panel_keyword; 
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K. 


PANEL_QUERY  PACKAGE 


1.  PAN_QUERY_S.A 

**♦  -pAE  Plus  Code  Generator  version  V5.1 
--  ***  File  :  pan_query_s . a 

--  •**  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  _  ★ 

*  Panel_query  --  Package  SPEC 

_  _  ♦ 


with  TAE; 
with  X_W i ndows ; 

package  Panel_query  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:  query 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  neune  is  changed  (not  title) 

For  panel: 
query 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  —  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  —  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
--  I 
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1 


--I  EXCEPTIONS: 

-- I  TAE . UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE .Tae_Co .NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection  Read 


Create  Panel 


Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt . Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


--  Flags  sent  to  Wpt_NewPanel . 


Relative_Window 

:  in  X_Windows -Window 

:=  X_Windows .Null_Window  ); 


Panel  origin  is  offset  from 
this  X  Window.  Null_Window 
--  uses  the  root  window. 


PURPOSE : 

This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info.Panel_Id. 

EXCEPTIONS : 

TAE .UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect  Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

-- I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info . Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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--I  TAE . UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
-- I  created 

--I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

-- I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 
id. 


NOTES : 

Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PAPH 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_query; 
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2. 


PAN_QUERY_B.A 


__  ***  taE  Plus  Code  Generator  version  V5 . 1 
--***File  ;  pan_query_b . a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_query  --  Package  BODY 

_  ♦ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global , Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mainmenu ; 
with  Panel_compsel ; 

package  body  Panel_query  is 


NOTES : 

For  each  parcimeter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile  : 

The  panel's  name  is  changed  (not  title) 

For  panel : 
query 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  neime  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

psdlselect,  psdlin,  directorylabel ,  cancel. 


239 


ok 


--ADDED 

psdlfile  iString  (1..80):=  (others=>'  '); 
current  : String  (1..80):=  (others=>*  * )  ; 
ls_file  :file_type; 
q_outf ile : file_type; 

f ile_name : String ( 1 .. 7 )  :=  "ls_file"; 

number  : integer  :  =1 ; 

Dummy  : Boo 1 ean ; 


Initialize_Panel 


--  Subprogram  BODY 


procedure  Initiali2e_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info. Collection  :=  Collection_Read; 

TAE . Tae_Co . Co_Find  (Info. Collection,  “query_v“ ,  Info.View) ; 
TAE.Tae_Co.Co_Find  (Info. Collection,  "qpjery_t“.  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( * Panel_query . Initialize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_HEMBER  => 

Text_IO . Put_Line  ( ■Panel_query.Initialize_Panel :  " 

&  "(View  or  Target)  not  in  Collection."'; 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 
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:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


--I  NOTES:  (none) 


begin  --  Create_Panel 


if  Info. Panel  Id  =  Tae.Null  Panel_Id  then 


TAE . Tae_Wpt . Wpt_NewPane 1 
(  Dummy 
Data_Vm 
View_Vm 

Relat ive_Window 
User_Context 
Flags 
Panel  Id 


=>  , 

=>  Info. Target, 

=>  Info. View, 

=>  Relat ive_Window, 
=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  ) ; 


else 

Text_IO . Put_Line  ("Panel  (query)  is  already  displayed."); 
end  if; 


exception 

when  TAE. UNINITIAL I ZED.PTR  => 

Text_IO . Put_Line  ( "Panel_query.Create_Panel:  ’ 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Fut_Line  ( " Panel_query .Create_Panel : 

&  “Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Pane 1 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE  .Tae_Wpt .  Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 
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:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

--I  NOTES:  (none) 
begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

{  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) ; 
end  i f ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( “ Panel_query .Connect_Panel :  " 

&  “Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel 


Subprogram  BODY 


procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info. Pane l_Id) ; 
exception 

1 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( “Pane l_query.Dest roy_ Panel : 

Sc  ■  Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 

--  +  +  +  +++  +  +++  +  +++  +  +  +  +  +  +  +  +  +++  +++++  +  +  +  ++++++  +  +  +  ++++++  +  +  +  +  +  +++  +  +  +  +  +  +  +  ■*■  +  +  + 
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--  begin  EVENT  HANDLERS 


psdlselect_Event 


--  Subprogram  SPEC  &  BODY 


procedure  psdlselect_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 

Count  :  TAE.Taeint; 

--ADDED 

N,M,K,S  :  integer :=1; 

Dummy  :Boolean; 

psdl_vec : s_vector ( 1 . . 1 ) : =  (others=>  new  STRING ( 1 .. 80 )) ; 
begin  --  psdlselect_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  {Info.Parm_Ptr,  1,  Valued)); 
end  i f ; 

--ADDED 

psdlf ile : =Value ( 1 ) ( 1 . . 80 ) ; 
parse_line (psdlf ile) ; 
strlen (psdlf ile, N) ; 
strlen(Directory,M) ; 
if  Is_a_directory  then 
K:=N+M; 

Directory ( 1 . .K) : =Directory (1 . .M) &" / "&psdlf ile ( 1 . . (N-1 ) ) ; 
if  K>27  then 

directory_array  :=  Directory ( (K-26) . .K) ; 

else 

directory _array  : =  Directory { 1 . . 27 ) ; 
end  i f ; 

TAE .Tae_Vm. Vm_SetString ( Info .View, "directory label " , 1 , directory_array , TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " directory labe 1 " , Info .View, "dir 
ectorylabel " )  ,- 

system_call  ( "  Is  -F  "ScDirectory  ( 1 .  .K) &"  >  ls_f  ile" )  ; 
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list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "psdl select " , taeint (n 
umber) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
cur_dir_index : =cur_dir_index+l ; 

Current_directory (cur_dir_index) ( 1 . .N) : =psdlf ile ( 1 . .N) ; 
for  node  in  (N+l)..80  loop 

Current_directory (cur_dir_index) (node) :='  ' ; 
end  loop; 

system_call ( "rm  ls_file"); 

Is_a_directory : =FALSE; 

elsif  Upper_di rectory  then 

strlen (Current_directory (cur_dir_index)  ,S) ; 
for  drct  in  (M-S+l)..80  loop 
Directory (drct ):  =  ‘ 
end  loop; 
if  (M-S)>27  then 

directory _array  :=  Directory (( (M-S) -26) .. (M-S) ) ; 

else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 

TAE .Tae_Vm. Vm_SetString ( Info .View, “directory label" , 1 , directory_array ,  TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, “ directory labe 1 “ , Info .View, "dir 
ectorylabel " ) ; 

cur_dir_index : =cur_dir_index-l; 

system_call ( " Is  -F  "&Directory ( 1 . . (M-S) ) &"  >  ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_name, f ile_vec,  number ) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "psdl select " ,  taeint ( n 
umber) , file_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  ls_file"); 

Upper_directory : =FALSE ; 

else  --A  file  name  is  selected 
psdl_vec(l) .all ; =psdlf ile; 

TAE.Tae_Wpt . Wpt_SetStr ingConstraints ( Info . Panel_Id, "psdl in" , 1 , psdl_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end  i f ; 


--  End  default  generated  code 
end  psdlselect_Event ; 
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cancel_Event 


--  Subprogram  SPEC  £c  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Contexc_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..!)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info. Parm_Ptr,  1,  Value(l)); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_mainmenu .Connect_Panel  (TAE.Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset (Info.Panel_Id) ; 
for  J  in  1 . . 80  loop 

Directory ( J) :='  ';  • 

end  loop; 

for  K  in  1 . . cur_dir_index  loop 
for  L  in  1..80  loop 

current_directory (K) (L) :='  ' ; 
end  loop; 
end  loop; 

for  A  in  1 .  .  27  loop 

directory _array (A) : = '  ' ; 
end  loop; 
cur_dir_ index: =1 ; 

end  cancel_Event ; 
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okEvent 


--  Subprogram  SPEC  &  BODY 


procedure  ok_Event 

(  Info  :  in  TAE.Tae_Wpt .EvenC_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N,K,J,S:Integer:=l; 

teststring :String ( 1 .. 80 ): =  {others=>‘  ’); 
begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm. Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value (1)); 
end  if; 

--ADDED 

strlen (psdlf ile, N)  ; 
strlen (Directory, K) ; 
strlen ( library, J) ; 

system_call (com&'cq  "ilibrary (1. . J)&*  “^Directory ( 1 . .K) &" / 

"&psdlf  ile  ( 1 .  .N)  Sc"  “Scquery_outf  ile)  ; 

list_components (q_outf ile, query _out file, file_vec, num_of_comp) ; 

--strlen ( f ile_vec ( 1 ) .all,  S) ; 

open (q_outf ile, mode=>in_f ile, neune=>query_outf ile) ; 

Text_IO.get_line (q_outf ile, teststring,  S) ; 
close (q_outf ile) ; 
if  teststringd.  .5)  =■  *  then 

TAE.Tae_Wpt.Wpt_PanelMessage(info.panel_id,  "NO  MATCHING  COMPONENT 
IS  FOUND" ) ; 

system_call ( "rm  query_outf ile" ) ; 

else 


TAE .Tae_Wpt . Wpt_SetStringConstraints (Panel_compsel . Info . Panel_Id, "compse 
1" , taeint (num_of_comp) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( " rm  query_outf ile" ) ; 

Query ; =  True ; 

Query _psdl ( 1 . .N) : =  psdlf ile ( 1 . .N) ; 
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system_call  ( “cp  "ScDirectory  ( 1 .  .K) &"  /  "&psdlf  ile  ( 1 .  .N) &" 
--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_compsel .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE .Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
for  X  in  1..80  loop 
Directory (X) :  = '  ‘  ; 

end  loop; 

for  Y  in  1 . . cur_dir_index  loop 
for  Z  in  1 .  .  80  loop 

current_directory (Y)  (Z) :  =  ■  '  ; 

end  loop; 
end  loop; 

for  AA  in  1..27  loop 

directory _array (AA) ; =  '  •; 

end  loop; 
cur_dir_index: =1 ; 

end  i f ; 

end  ok_Event; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

{  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ( "psdlselect* ,  User_Context_Ptr . Parm_Name) 

then 

psdlselect_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc.s_equal  (“cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc.s_equal  ("ok“,  User_Context_Ptr . Parm_Naroe)  then 
ok_Event  (User_Context_Ptr) ; 
end  i f ; 

end  Di spat ch_I tern; 
end  Panel_query; 
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PANEL  COMPSEL  PACKAGE 


1.  PAN_COMPSEL_S.A 


*** 
it  It  it 
it  it  it 
it  it  it 
it  it 
★ 

★ 

* 

♦  ★ 


TAE  Plus  Code  Generator  version  V5 . 1 
File  :  pan_compsel_s .a 

Generated  :  May  21  16:12:31  1992 
Revised  by  :  Dogan  Ozdemir 

ititititititititirititititititititiritieitititititititititititititititit1tiritiritit1titititititirititieitititiriric*ieirttieirit 

Panel_compsel  --  Package  SPEC 


with  TAE; 
with  X_W i ndows ; 

package  Panel_compsel  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:  compsel 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
compsel 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  —  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is 
TAB . Tae_Co . NO_SUCH_MEMBER 
Collection  Read 


raised  if 
is  raised 


Collect ion_Read  not  initialized 
if  the  panel  is  not  in 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows ,Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE; 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 


EXCEPTIONS ! 


--I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info. Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
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In  this  case,  Relative_Window  is  ignored. 


--I  EXCEPTIONS: 

--I  TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 


--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
--I  created 

--I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


Subprogrcim  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--1  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Info.Panel_Id  is  an  invalid 
id. 


NOTES : 


--I  Info.Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  —  Wpt  Event  Context  for  a  PARM 

:  in  TAE . Tae_Wpt . Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--I 

--I  EXCEPTIONS: 

--I  Application-specific 


end  Pane l_compse 1 ; 
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2.  PAN  COMPSEL  B.A 


__  ***  Plus  Code  Generator  version  V5 . 1 

--  ***  File  :  pan_compsel_b .a 

--  ***  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  _  ★ 

*  Panel_compsel  --  Package  BODY 

_  _  ★ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  “with"  statement  for  each  connected  panel, 
with  Pane l_ma inmenu; 
with  Panel_viewpsdl ; 
with  Panel_select ; 

package  body  Panel_compsel  is 


NOTES : 

For  each  pareimeter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  pareimeter  neime  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
file : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
comps el 


--I  The  following  WorkBench  operations  will  also  cause  regeneration: 

--I  An  item  is  deleted 

--I  A  new  item  is  added  to  this  panel 

--I  An  item's  neune  is  changed  (not  title) 

--I  An  item's  data  type  is  changed 

--I  An  item's  generates  events  flag  is  changed 

-- I  An  item's  valids  changed  (if  item  is  type  string  and  connected) 

--I  An  item's  connection  information  changed 
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compsel , 


cancel , 


view. 


select , 


-  I 

--ADDED 

comp  :  String ( 1 .. oO ): =  (others=>’  '); 


Initialize_Panel 


- -  Subprogram  BODY 


procedure  Initiali2e_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt .Event_Context; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info . Collection,  "compsel_v“,  Info.View); 
TAE.Tae_Co.Co_Find  ( Info. Collection,  "compsel_t“,  Inf o. Target ) ; 

exception 

when  TAE. UNINITIAL I ZED_PTR  => 

Text_IO . Put_Line  { " Panel_compsel . Initialize_Panel :  “ 

&  "Collection_Read  not  initialized."); 
raise ; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_compsel . Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 
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:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae.Null 
TAE.Tae_Wpt . Wpt_NewPanel 
(  Dummy 
Data_Vm 
View_Vm 

Relat ive_Window 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line  ("Panel 
end  i f ; 


.Panel_Id  then 


=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 

=>  Info, 

=>  Panel_State, 

=  >  Info. Panel_Id  )  ; 

(compsel)  is  already  displayed."); 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_compsel .Create_Panel : 

£c  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( “ Panel_compsel . Create_Panel : 

Sc  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create  Panel 
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(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State ) ; 
end  i f ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( ” Panel_coinpsel .Connect_Panel :  “ 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  DestroY_Panel  is 


begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase(Info.Panel_Id) ; 
exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_compsel . Destroy_Panel : 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 


--  begin  EVENT  HANDLERS 


compsel_Event 


--  Subprogram  SPEC  U  BODY 
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procedure  compsel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

--I  NOTES:  Selects  the  component  from  the  list 

Value  :  array  (1..1)  of  String  ( 1 . .TAE . Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  compsel_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm. Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value(l)); 
else 
null ; 
end  i f ; 

--ADDED 

comp { 1 . . 80 ) : =Value ( 1 ) ( 1 . . 80 ) ; 


--  End  default  generated  code 
end  compsel_Event ; 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event  , 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE. Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

Q  :  Integer :=1; 

begin  --  cancel_Event 

--  Begin  default  generated  code 
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TAE.Tae_Vm. Vm_Extract_Count  ( Info. Parm_Ptr,  Count ) ; 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info.  Parm_Ptr,  1,  Valued)  ); 
else 
null; 
end  i f ; 
if  Query  then 
Query : =False ; 
strlen (Query _psdl , Q) ; 
system_call ( "rm  "&Query_psdl ( 1 . .Q) ) ; 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_mainmenu .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE.Tae_Wpt . Wpt_PanelReset {Info.Panel_Id) ; 
for  Clean  in  1 . . (num_of_comp)  loop 
for  ch  in  1..80  loop 

file_vec (Clean) .all (ch) := '  '; 
end  loop ; 
end  loop; 

comp ( 1 . . 5 )  : = "  "  ; 


end  cancel_Event ; 


view_Event 


--  Subprogram  SPEC  &  BODY 


procedure  view_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

L,S  :  Integer :=1; 
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begin  --  view_Event 

--  Begin  default  generated  code 

TAE.Tae_Vin.Vm_Extract_Count  { Info . Parm_Ptr ,  Count) ; 
if  Count  >  0  then 

TAE.Tae_Vin.Vm_Extract_SVAL  { Info .  Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--ADDED 

if  comp (1.. 5)  =  "  "  then 

TAE .Tae_Wpt . Wpt_PanelMessage ( info .panel_id, "NO  COMPONENT  IS 
SELECTED" ) ; 
else 

component  : =  comp ; 
strlen (component, L) ; 
strlen ( library, S) ; 

system_call  (comSc“cv  "Sdibrary  (1 .  .S)  &"  " Sccomponent  ( 1 .  . L )  & "  outpsdl 
outspec  outbody"); 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt.WPT_INVISIBLE) ; 

Panel_viewpsdl .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
end  if; 

end  view_Event ; 


select_Event 


--  Subprogram  SPEC  &  BODY 


procedure  select_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

-- I  NOTES:  Selected  component  will  be  further  munipulated  if  this 
procedure 

--I  is  invoked. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 
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begin  --  select_Event 


--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm. Vm_Extract_SVAL  { Info . Parm_Ptr ,  1,  Value(l)); 
end  if; 

--ADDED 

if  comp (1.. 5)  =  “  "  then 

TAE.Tae_Wpt . Wpt_PanelMessage ( info.panel_id, “NO  COMPONENT  IS 
SELECTED" ) ; 
else 

component  :=  comp; 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_select .Connect_Panel  (TAE.Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
end  i f ; 

end  select_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogreim  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("compsel",  User_Context_Ptr . Parm_Name)  then 
compsel_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.3_equal  ("view",  User_Context_Ptr . Parm_Naune)  then 
view_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Mi sc .s_equal  ("select",  User_Context_Ptr . Parm_Neime)  then 
select_Event  (User_Context_Ptr) ; 

end  if; 

end  Dispatch_Item; 
end  Panel_compsel ; 
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M 


PANEL  VIEWPSDL  PACKAGE 


1,  PAN_VIEWPSDL_S.A 

__  ***  Plus  Code  Generator  version  V5 . 1 

--  ***  File  :  pan_viewpsdl_s .a 

--  ***  Generated  :  Jul  13  16:13:09  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  _  ★ 

*  Panel_viewpsdl  --  Package  SPEC 


with  TAE; 
with  X_Windows; 

package  Panel_viewpsdl  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  viewpsdl 
These  subprogreiins  enable  panel  initialization,  creation,  destruction 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile . 

The  panel's  name  is  changed  (not  title) 

For  panel: 
viewpsdl 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Ini tialize_ Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  );  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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--1  EXCEPTIONS: 

--I  TAE .UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
{  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info.Panel_Id. 


EXCEPTIONS : 


--I  TAE.UNINITIALI2ED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info.Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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TAE .UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

-- I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


EXCEPTIONS ; 

TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 


NOTES ; 


--I  Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

{  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

- -  I  EXCEPTIONS : 

--I  Application-specific 

end  Panel_vlewpsdl ; 


261 


2.  PAN  VIEWPSDL  B.A 


__  ***  tAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_viewpsdl_b.a 

--  ***  Generated  :  Jul  13  16:13:09  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_viewpsdl  --  Package  BODY 

_  ★ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global , Text_IO ; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_compsel ; 
with  Panel_viewspec ; 


package  body  Panel_viewpsdl  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  par2uneter  name  and  "_Event" . 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 


REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  neune  is  changed  (not  title) 

For  panel: 
viewpsdl 


The 


For 


following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  naune  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
the  panel  items; 
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cancel , 


viewspec 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt .Even t_Con text; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Inf o . Collection,  “ viewpsdl_v" ,  Info.View); 
TAE.Tae_Co.Co_Find  ( Info .Collection,  “ viewpsdl_t " ,  Info .Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_viewpsdl . Initialize_Panel :  " 

&  “Collection_Read  not  initialized."); 
raise; 

when  TAE . Tae_Co . NO_SUCH_MEMBER  => 

Text_IO .  Put_Line  ( ''Panel_viewpsdl .  Initialize_Panel :  " 

&  “(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 
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if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 
(  Dummy 
Data_Vm 
View_Vm 

Relative_Window 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line  {"Panel 
end  if; 


=> 
=  > 
=> 
=> 
=> 
=> 
=> 


Info. Target, 
Info. View, 

Re lat ive_Window , 
Info, 

Panel_State, 
Info. Panel_Id  ); 


(viewpsdl)  is  already  displayed."); 


exception 

when  TAE. UNINITIAL I ZED_PTR  => 

Text_IO . Put_Line  ( " Panel_viewpsdl .Create_Panel :  " 

&  “Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( “Panel_viewpsdl .Create_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Pane 1 


--  Subprogreun  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

Dummy : Boolean ; 

L  :  Integer :=1; 

label:  String (1 .. 80 ):= (others=> '  ’); 

begin  --  Connect_Panel 

if  Info.Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 
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Panel_State 


=>  Panel_State  ) ; 


else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State ) ; 
end  i f ; 


--ADDED 

strlen {component , L) ; 

label (1 . . (L+5 ) ) : =component (1 . .L) .psdl " ; 

TAE .Tae_Vm. Vm_SetString (Info .View, "psdllabel " , 1, label ( 1 . . (L+5 ) ) , TAE .Tae_ 
Vm. P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "psdllabel " , Info .View, "psdllabe 
1" )  ; 


Dummy :  =TAE .  Tae_Wpt .  Wpt_Pending  ,- 
exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_viewpsdl . Connect_Panel : 

&  “Invalid  panel  state.  "),- 
raise ; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info. Panel_Id) ; 
exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_viewpsdl .Destroy_Panel :  " 

Sc  "Info.Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 
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--  begin  EVENT  HANDLERS 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

{  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Value(l)); 
end  if; 

--ADDED 

system_call ( "rm  outpsdl"); 
system_call ( "rm  outspec"); 
system_call ( "rm  outbody" ) ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_compsel .Connect_Panel  {TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 


viewspec_Event 


--  Subprogram  SPEC  &  BODY 


procedure  viewspec_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
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--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

- -  I  NOTES :  ( none ) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE . Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  viewspec_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf o . Parm_Ptr ,  1,  Value(l)); 
end  i f ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 

Panel_viewspec .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  viewspec_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  (“cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Mi3C .s_equal  ("viewspec",  User_Context_Ptr . Parm_Name ) 

then 

viewspec_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 
end  Panel_viewpsdl ; 
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N.  PANEL  VIEWSPEC  PACKAGE 


1.  PAN_V1EWSPEC_S.A 

__  ***  tAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_viewspec_s . a 

--  ***  Generated  ;  Jul  13  16:13:09  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

.  —  ★ 

*  Panel_viewspec  --  Package  SPEC 

_  _  ★ 


with  TAE; 
with  X_Windows; 

package  Panel_viewspec  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  viewspec 
These  subprograims  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
viewspec 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


--  Subprogrcim  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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--I  EXCEPTIONS: 

--I  TAE .UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-- I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED; 


--  Flags  sent  to  Wpt_NewPanel . 


Re 1 a t i ve_W i ndow 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 


--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info . Panel_Id. 


EXCEPTIONS : 


--I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt  .Wpt_Flags 

; =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat i ve_Window 

:  in  X_Windows .Window 

: =  X_W i ndows . Nu 1 1_W i ndow  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info. Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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TAE .UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE.TAE_FAIL  is  raised  from  Create_ Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


Des  t  roy_Pane 1 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS; 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 
id. 


NOTES : 

Info.Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Di spat ch_I tern 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--I 

--1  EXCEPTIONS: 

--I  Application-specific 

end  Panel_viewspec; 
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2.  PAN  VIEWSPEC  B.A 


__  ***  -pAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  ;  pan_viewspec_b.a 

--  ***  Generated  :  Jul  13  16:13:09  1992 
__  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_viewspec  --  Package  BODY 

_  _  ★ 

_  •*-#*lkr***'**-*-Ar<*-*'*'*-***‘*-*'##'*‘**-*-***«*****'*'***i^**'*-*‘***'**'*'*****ik--#-*-*'**‘*«’*'-*’«’-*- 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global ; 

--  One  “with"  statement  for  each  connected  panel, 
with  Panel_viewpsdl ; 
with  Panel_viewbody ; 

package  body  Panel_viewspec  is 


--I  NOTES: 

--I  For  each  parameter  that  you  have  defined  to  be  "event-generating"  in 
--I  this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
--I  has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
--I  Add  application-dependent  logic  to  each  event  handler.  (As  generated 
--I  by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
-- I  the  event . ) 

--I  You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
--I  you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
--I  modifications  back  in. 


REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
file : 

The  panel’s  neune  is  changed  (not  title) 

For  panel: 
viewspec 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item’s  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

cancel,  viewbody 
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Initial ize_Panel  --  Subprogram 

BODY 

procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info. Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Inf o . Collection,  “viewspec_v" ,  Info. View); 
TAE.Tae_Co.Co_Find  ( Info. Collection,  “ viewspec_t “ ,  Inf o . Target ) ; 

exception 

when  TAE.UNINITIALIZEL_PTR  => 

Text_IO . Put_Line  ( " Panel_viewspec . Initialize_Panel : 

&  “Collection_Read  not  initialized.*); 
raise ; 

- 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO . Put_Line  ( " Panel_viewspec . Initialize_Panel : 

St  "(View  or  Target)  not  in  Collection.*); 
raise ; 

■ 

end  Initialize_Panel ; 

Create_Panel  --  Subprogram 

BODY 

procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt . Wpt_NewPanel 
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(  Dummy 
Data_Vm 
View_Vm 

Relative_Wi ndow 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line  (“Panel 
end  i f ; 


=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 

=>  Info, 

=>  Panel_State, 

=>  Info . Panel_Id  ) ; 

(viewspec)  is  already  displayed."); 


exception 


when  TAB. UNINITIAL I ZED_PTR  => 

Text_IO . Put_Line  ( “ Panel_viewspec .Create_Panel :  “ 

St  “Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( “ Panel_viewspec . Create_Panel : 

St  “Panel  could  not  be  created."); 
raise; 


end  Create_Panel ; 


Connect_Panel 


Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

; =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window  , 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

Dummy : Boo 1 ean ; 

L  :  Integer :=1; 

label:  String (1 .. 80) := (others=> •  •); 

begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 
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TAE.Tae_Wpt .Wpt_SetPanelState  { Info . Panel_Id,  Panel_State) ; 
end  i f ; 


--ADDED 

strlen (component , L) ; 

label { 1 . . (L+5) ) ; =component ( 1 . .L) &" . spec" ; 

TAE.Tae_Vm. Vm_SetString ( Info .View, "speclabel " , 1 , label ( 1 . . (L+5 ) ) , TAE . Tae_ 
Vra.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " speclabel “ , Info .View, " speclabe 
1")  ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( “ Panel_viewspec .Connect_Panel :  " 

&  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase(Info.Panel_Id) ; 
exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_viewspec .Destroy_Panel :  " 

&  "Info.Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE. Tae_Wpt.ERASE_NULL_ PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy_Panel; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
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--  begin  EVENT  HANDLERS 


cancel_Event 


--  Subprogram  SPEC  U  BODY 


procedure  cancel_Event 

{  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE .Tae_Vm. Vm_Extract_Count  { Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm. Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Value ( 1) ); 
end  if; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_viewpsdl .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 


viewbody_Event 


--  Subprogram  SPEC  &  BODY 


procedure  viewbody_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE. Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 
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begin  --  viewbody_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parin_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)  ); 
end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 

Panel_viewbody .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
end  viewbody_Event ; 


--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
begin  --  Dispatch_Item  , 

if  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Ncmie)  then 
cancel_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  ( "viewbody" ,  User_Context_Ptr . Parm_Name) 

then 

viewbody _Event  (User_Context_Ptr) ; 
end  if; 

end  Dispatch_Item; 
end  Panel_viewspec ; 
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o 


PANEL  VIEWBODY  PACKAGE 


1.  PAN_VIEWBODY_S.A 

--  ***  tae  Plus  Code  Generator  version  V5.1 
--  ***  File  :  pan_viewbody_s .a 

--  ***  Generated  :  Jul  13  16:13:09  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

_  _  ★ 

*  Panel_viewbody  --  Package  SPEC 

—  —  * 


with  TAE; 
with  X_Windows; 

package  Panel_viewbody  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  viewbody 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
file : 

The  panel's  neune  is  changed  (not  title) 

For  panel: 
viewbody 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Init ial i ze_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--1  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
- -  I  pane 1 
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--I  EXCEPTIONS: 

--I  TAE . UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED; 

Relative_Wi ndow 

:  in  X_Windows .Window 

:=  X_Windows -Null _Wi ndow  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
--I  and  stores  the  panel  Id  in  Info. Panel_Id. 


EXCEPTIONS : 


--I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE . Tae_Wpt . Wpt _flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

: =  X_W i ndows . Nu 1 l_Wi ndow  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
--I  Info. Pane l_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
-- I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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--I  TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
--1  created 

-I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

-“I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--1  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

-- I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 
id. 


NOTES : 

Info . Panel_Id  is  set  to  TAE .NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogrcim  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_viewbody ; 
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2.  PAN_VIEWBODY_B.A 

__  ***  tAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_viewbody_b.a 

--  ***  Generated  :  Jul  13  16:13:09  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


Panel_viewbody 


--  Package  BODY 


with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global ; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_viewspec ; 

package  body  Panel_viewbody  is 


rie'teir'iririeieie 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
file : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
viewbody 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 
cancel 
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Initialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

--1  NOTES:  (none) 

begin  --  Initiali2e_Panel 

Info  :=  new  TAE .Tae_Wpt . Event_Context ; 

Info . Collect  ion  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info. Collection,  “viewbody_v" ,  Info.View); 
TAE.Tae_Co.Co_Find  ( Info .Collection,  " viewbody_t " ,  Inf o . Target ) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_viewbody . Initialize_Pan6l : 

&  "Collection_Read  not  initialized."); 
raise ; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_viewbody . Initialize_Panel : 

St  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 
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if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE.Tae_Wpt . Wpt_NewPanel 
(  Dummy 
Data_Vm 
View_Vm 

Relative_Window 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line  (“Panel  (viewbody)  is  already  displayed."); 
end  i f ; 


=  >  " " , 

=>  Info. Target, 
Info. View, 

Re lat i ve_W i ndow , 
Info, 

Panel_State, 

=>  Info. Panel_Id  )  ; 


=> 

=> 

=> 

=> 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_viewbody .Create_Panel :  “ 

St  "Panel  was  not  initialized  prior  to  creation."); 
raise ; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_viewbody .Create_Panel : 

Sc  “Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel 


--  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 

Dummy : Boolean ; 

L  :  Integer :=1; 

label:  String ( 1 .. 80 ):= (others=> ’  '); 

begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relative_Window  =>  Relative_Window, 
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Panel_State 


=>  Panel_State  ) ; 


else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) ; 
end  if; 

- -ADDED 

strlen (component , L) ; 

label { 1 . . (L+5) ) : =component ( 1 . .L) &“ .body" ; 

TAE .Tae_Vm. Vm_SetString ( Info .View, “bodylabel" , 1, label ( 1 . . (L+5 ) ) , TAE .Tae_ 
Vm.P_UPDATE) ; 

TAE .Tae_Wpt .Wpt_ViewUpdate ( Info . Panel_Id, “bodylabel" , Info .View, "body labe 
1 " )  ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
except  ion 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( "Panel_viewbody.Connect_Panel :  " 

St  “Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprograim  BODY 


procedure  Destroy_Panel  is 


begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelErase(Info.Panel_Id) ; 

t 

exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO. Put_Line  { •Panel_viewbody .Destroy_Panel :  " 

Sc  ■Info.Panel_Id  is  an  invalid  id.*); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null; 

end  Destroy _Panel ; 
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--  begin  EVENT  HANDLERS 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Inf  o .  Parm_Ptr ,  1,  Valued)  ); 
end  i f ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_viewspec .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE.Tae_Misc.s_equal  ("cancel*,  User_Context_Ptr . Parm_Name)  then 
cancel_Event  {User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 
end  Panel_viewbody ; 
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P.  PANEL_SELECT  PACKAGE 

1.  PAN_SELECT_S.A 

***  -pAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  ;  pan_select_s . a 

--  ***  Generated  :  Aug  12  11:50:32  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


Panel_select 


--  Package  SPEC 


with  TAE; 
with  X_Windows; 

package  Panel_select  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel :  select 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  neune  is  changed  (not  title) 

For  panel : 
select 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is 
TAE . Tae_Co . NO_SUCH_MEMBER 
Collection  Read 


raised  if  Collection_Read  not  initialized 
is  raised  if  the  panel  is  not  in 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows -Window 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


- -  I  PURPOSE : 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
--I  and  stores  the  panel  Id  in  Info. Panel_Id. 


EXCEPTIONS : 


--1  TAE. UNINITIAL I ZED_PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State  , 

:  in  TAE. Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re 1 a t i ve_W i ndow 

:  in  X_Windows .Window 

;=  X_Windows .Null _Wi ndow  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--1  If  this  panel  doesn’t  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel_State  and  stores  the  panel  Id  in 
Info.Panel_Id. 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
In  this  case,  Relative_Window  is  ignored. 
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EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


PURPOSE ; 

This  procedure  erases  a  panel  from  the  screen  and  de-al locates  the 
associated  panel  object  (not  the  target  and  view) . 

EXCEPTIONS : 

TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 


--I  NOTES: 

--I  Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item  --  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--I 

--I  EXCEPTIONS; 

--I  Application-specific 

end  Panel_select ; 
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2.  PAN_SELECT_B.A 

__  ***  ip^  Plus  Code  Generator  version  V5 . 1 
--  ***  File:  pan_select_b . a 

--  ***  Generated:  Aug  12  11:50:32  1992 


*  Panel_select  --  Package  BODY 

_  _  T 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 

--  One  “with"  statement  for  each  connected  panel. 

with  Panel_cdelwarn; 

with  Panel_savecomp; 

with  Panel_compsel ; 

with  Panel_integrt ; 

package  body  Pane l_s elect  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  "event -generating"  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parcimeter  name  and  "_Event" . 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
select 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  n^une  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 
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delete, 
cancel , 


save, 

help 


print , 


integrate , 


Initialize_Panel  --  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

;  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt . Event _Cont ext; 

Info . Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Inf o . Collection,  “select_v‘,  Info.View); 
TAE.Tae_Co.Co_Find  (Info. Collection,  “select_t",  Info.Target) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_select . Initialize_Panel :  “ 

Sc  "Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO.Put_Line  ( “ Panel_select . Initialize_Panel : 

Sc  "(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel; 


Create_Panel  --  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat ive_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 
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if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

(  Dummy  => 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ) ; 

else 

Text_IO . Put_Line  ("Panel  (select)  is  already  displayed."); 

end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_select .Create_Panel : 

&  “Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Panel_select .Create_Panel :  " 

&  "Panel  could  not  be  created.*); 
raise; 

end  Create_Panel ; 


Connect_Panel  —  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows  .Window 

:=  X_Windows .Null_Window  )  is 

Dummy :  Boo 1 ean ; 

L  :  Integer :=1; 

label:  String ( 1 .. 80 ):= (others=> ■  '); 


begin  --  Connect_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 


Create_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE .Tae_Wpt .Wpt_SetPanelState  ( Inf o . Panel_Id,  Panel_State) ; 
end  i f ; 

--ADDED 

strlen (component , L) ; 

label ( 1 . .L) : =component ( 1 . .L) ; 


TAE .Tae_Vm. Vm_SetString ( Info .View, “ label “ , 1 , label ( 1 . . L) , TAE .Tae_Vm. P_UPD 
ATE)  ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " label “ , Inf o .View, " label " ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( " Panel_select .Connect_Panel :  “ 

Sc  “Invalid  panel  state."); 
raise ; 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 


begin  --  Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when  TAE.Tae_Wpt .BAD_PANEL_ID  => 

Text_IO . Put_Line  ( " Panel_select .Destroy_Panel :  " 

Sc  •  Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE . Tae_Wpt . ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 
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end  Destroy_Panel ; 


--  begin  EVENT  HANDLERS 


delete_Event 


--  Subprogram  SPEC  &  BODY 


procedure  delete_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  !  is 
--I  PURPOSE: 

-- I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE. Tae_Taeconf . STRINGSIZE) ; 
Count  ;  TAE.Taeint; 

begin  --  delete_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE .Tae_Vm.Vm_Extract_SVAL  (Info . Parm_Ptr ,  1,  Value(l)); 
end  i f ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_cdelwarn.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  delete_Event ; 


save_Event 


--  Subprogram  SPEC  &  BODY 


procedure  save_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 


Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) 
Count  :  TAE.Taeint; 

L,I,C  ;  Integer :=1; 

D  :  Integer :=0; 

ls_file  :fiie_type; 
f ile_name iString ( 1 . . 7 )  :=  "ls_file"; 

current  : String  (1..80):=  {others=>'  •); 
number  : integer : =1 ; 

Dummy  : Boo 1 ean ; 

begin  --  save_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value(l)); 
end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 


--ADDED 

strlen (path, D) ; 

Directoryd.  .D)  ;=path(l.  .D)  ; 
loop 

if  Directoryd)  =  '/'  then 

current_directory (cur_dir_index) d..C+l) : =current (1 . .C 

D&V  "; 

cur_dir_index : =cur_dir_index+ 1 ; 

C:=l; 

else 

current ( C ) : =Directory (I ) ; 

C:=C+1; 
end  if; 

I:=I+1; 

if  I=D+1  then  exit; 
end  i f ; 
end  loop ; 

current_directory  (cur_dir_index)  (1 .  .C+1)  :  =current  (1 .  .C-1 )  Sc"  / 
if  D>27  then 

di rectory _array  :=  Directory ( {D-26) . .D) ; 
else 

directory _array  :=  Directory (1 .. 27 ) ; 
end  i f ; 

system_call  ( "Is  -F  "ScDirectory  (1 .  . D) &"  >  ls_f  ile" )  ; 

list_directory ( ls_f ile, f ile_name, file_vec, number ) ; 
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strlen (component ,  L)  ; 


TAE.Tae_Vm.Vm_SetString(Panel_savecomp. Info. View, “compname" , 1, component ( 
1 . . L) , TAE . Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Panel_savecomp . Info . Panel_Id, “compname” , Panel 
_savecomp. Info. View, “compname" ) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Panel_savecomp . Info . Panel_Id, “direc 
tory" , taeint (number) , f ile_vec) ; 

TAE. Tae_Vm.Vm_SetSt ring ( Panel_savecomp . Info . View, “direc tory label ",  1 ,  dire 
ctory_ar ray , TAE . Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Panel_savecomp . Info . Panel_Id, "directorylabel “ 
, Panel_savecomp . Info .View, “directorylabel") ; 

Dummy : =TAE .Tae_Wpt .Wpt_Pending; 
system_call ( “ rm  ls_file"); 
system_call ( " rm  directory_f ile" ) ; 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
Panel_savecomp.Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  save_Event ; 


print_Event 


--  Subprogram  SPEC  &  BODY 


procedure  print_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  {1..1)  of  String  (1. .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE. Taeint ; 

--ADDED 

J, P : Integer :=1; 


begin  --  print_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm. Vm_Extract_Count  ( Info. Parm_Ptr,  Count); 
if  Count  >  0  then 
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TAE.Tae_Vin.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value(l)); 
end  i f ; 

--  End  default  generated  code 
strlen ( component , P) ; 
strlen ( library, J) ; 

system_call (com&”cv  "&library ( 1 . . J) "&component ( 1 . . P) &"  outpsdl 
outspec  outbody"); 

if  TAE .Tae_Misc . s_equal  (Value ( 1) PSDL" )  then 
system_call ( " Ipr  outpsdl"); 

TAE .Tae_Wpt . Wpt_PanelMessage ( info. panel_id, "SPOOLED  TO  DEFAULT 
PRINTER" ) ; 

elsif  TAE.Tae_Misc .  s_equal  (Valued),  "Spec")  then 
sy£tem_call ( " Ipr  outspec"); 

TAE .Tae_Wpt . Wpt_PanelMessage ( info .panel_id, "SPOOLED  TO  DEFAULT 
PRINTER" ) ; 

elsif  TAE.Tae_Misc .  s_equal  (Valued),  "Body")  then 
system_call ( " Ipr  outbody* ) ; 

TAE. Tae_Wpt . Wpt_PanelMessage ( info .panel_id, "SPOOLED  TO  DEFAULT 
PRINTER") ; 

end  i f ; 

system_call ( "rm  outpsdl" ) ; 
system_call ( “rm  outspec"); 
system_call ( "rm  outbody" ) ; 

end  print_Event; 


integrate_Event 


Subprogram  SPEC  &  BODY 


procedure  integrate_Event 

(  Info  :  in  TAE .Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  (1 . .TAE.Tae_Taeconf .STRINGS IZE) ; 
Count  :  TAE . Tae int ; 

L,S,Q  ;  Integer :=1; 

teststring:  String (1 . .7 ); =  (others=>'  '); 
genfile  :  File_type; 

begin  --  integrate_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  {Info.Parm_Ptr,  Count); 
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if  Count  >  0  then 

TAE  .Tae_Vin.  Vin_Extract_SVAL  { Info .  Parm_Ptr ,  1,  Value(l)); 
end  if; 

--ADDED 


str len( component, L) ; 
strlen ( library, S) ; 
strlen (Query_psdl , Q) ; 

system_call  (comSt’cv  "&library  { 1 .  .S) &“  "&component  { 1 .  .L) &" 
retrieved_psdl  retrieved_spec  retrieved_body “ ) ; 
if  Query  then 

system_call (parse&“main  retrieved_psdl  "£cQuery_psdl ( 1 . . Q) ) ; 
else 

system_call {parse&“parse  retrieved_psdl " ) ; 
end  if; 

open(genf ile,mode=>in_file,name=>"genfile" ) ; 
get (genf ile, teststring) ; 
close (genfile) ; 

if  teststring ( 1 .. 7 )  =  "generic"  then 

system_call ( “cp  softbase_txt .gen  message"); 
else 

system_call ( "cp  softbase_txt .nongen  message"); 
end  if; 

for  erase  in  1..7  loop 
teststring(erase) :=  '  ' ; 

end  loop; 

system_call ( "rm  genfile"); 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_integrt .Connect_ Panel  (TAE.Tae_Wpt .WPT_PREFERRED) ; 

-  y 

--  End  generated  code  for  Connection 
end  integrate_Event ; 


cance l_Event 


Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

{  Info  :  in  TAE. Tae_Wpt .Even t_Context_Ptr  )  is 


--I  PURPOSE: 


--1  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE . Tae_Taeconf .STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info.  Parm_Ptr,  1,  Valued)  ); 
end  if; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_compsel .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("delete",  User_Context_Ptr . Parm_Name)  then 
delete_Event  (User_Context_Ptr) ; 

elsif  TAE .Tae_Misc . s_equal  ("save",  User_Context_Ptr . Parm_Name)  then 
save_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  ("print",  User_Context_Ptr . Parm_Name)  then 
print_Event  (User_Context_Ptr ) ; 

elsif  TAE.Tae_Misc.s_equal  ("integrate",  User_Context_Ptr . Parm_Name) 
then 

integrate_Event  (U3er_Context_Ptr ) ; 
elsif  TAE. Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  (User_Context_Ptr) ; 
end  i f ; 

end  Dispatch_Item; 
end  Panel_3elect ; 


297 


Q.  PANEL_SAVECOMP  PACKAGE 


1.  PAN_SAVECOMP_S.A 

__  *»*  Plus  Code  Generator  version  V5 . 1 

--***File  :  pan_savecomp_s .a 

--  ***  Generated  :  Aug  12  11:50:32  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

—  —  ★ 

*  Panel_savecomp  --  Package  SPEC 

_  ★ 


with  TAE; 
with  X_Windows; 

package  Panel_savecomp  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  savecomp 
These  subprogreims  enable  panel  initialization,  creation,  destruction 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
savecomp 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initial ize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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--I  EXCEPTIONS: 

--I  TAE .UNINITIAL I ZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE .Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
--I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ) ; 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 


--  I 


This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
and  stores  the  panel  Id  in  Info.Panel_Id. 


EXCEPTIONS : 

TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

: =  X_W i ndows . Nu 1 l_Wi ndow  ) ; 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--1  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info.Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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--I  TAE . UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
--I  created 

--I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
-- I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 
id . 


NOTES : 


--I  Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE .Tae_Wpt .Event_Context_Ptr  );  --  event. 

--I  PURPOSE: 

--1  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_savecomp; 
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2.  PAN_SAVECOMP_B.A 

__  ***  -j-ae  Plus  Code  Generator  version  V5 . 1 
--  ***  File:  pan_savecomp_b.a 

--  ***  Generated:  Aug  12  11:50:32  1992 

*  Panel_savecomp  --  Package  BODY 


with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global , Text_IO; 

--  One  "with"  statement  for  each  connected  panel, 
with  Panel_select ; 

package  body  Panel_savecomp  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  “event -generating*  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  "_Event“. 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
savecomp 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  neune  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

directory label ,  cancel,  ok,  compname, 

directory 
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--ADDED 

selected  :String  (1..80):=  (others=>'  ' ) ; 
ls_file  :file_type; 

f ile_name : String ( 1 .. 7 )  :=  "ls_file"; 

number  : integer :=1; 


Initiali2e_Panel  --  Subprograim 

BODY 

procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 

begin  --  Initialize_Panel 

Info  :=  new  TAE.Tae_Wpt .Event_Context; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  ( Info .Collection,  “savecomp_v* ,  Info.View) ; 
TAE.Tae_Co.Co_Find  ( Info. Collection,  *savecomp_t • ,  Info.Target) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_I0 . Put_Line  ( “Panel_savecoinp. Initial ize_Panel : 

&  "Collection_Read  not  initialized."); 
raise; 

n 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_I0 . Put_Line  ( " Panel_savecoinp. Initialize_Panel : 

&  "(View  or  Target)  not  in  Collection."); 
raise ; 

n 

end  Initialize_Panel ; 

Create_Panel  --  Subprograun 

BODY 

procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 
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:  in  X_Windows .Window 

;=  X_Windows . Null_Window  )  is 


begin  --  Create_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE .Tae_Wpt . Wpt_NewPanel 

{  Dummy  => 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info . Panel_Id  ) ; 

else 

Text_IO . Put_Line  (“Panel  (savecomp)  is  already  displayed."); 

end  i f ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( “ Panel_savecomp .Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( “ Panel_savecomp .Create_Panel :  " 

&  "Panel  could  not  be  created."); 
raise; 

end  Create_Panel ; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

; =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat i ve_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Connect_Panel 
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if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Create_Panel 

(  Relat ive_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE .Tae_Wpt .Wpt_Set Pane iState  ( Inf o . Panel_Id,  Panel_State ) ; 
end  if; 

except  ion 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( “ Panel_savecomp . Connect_Panel :  " 

Sc  “Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 
--I  NOTES:  (none) 
begin  --  Destroy_Panel 

TAE .Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO . Put_Line  ( ■Panel_savecomp.Destroy_Panel :  " 

&  "Info.Panel_Id  is  an  invalid  id.*); 
raise ; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel; 


--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
--  begin  EVENT  HANDLERS 
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cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE . Tae_Wpt . Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)  ); 
end  i f ; 

--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 

Panel_select .ConneCt_Panel  (TAE .Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE .Tae_Wpt . Wpt_PanelReset { Info . Panel_Id) ; 
for  J  in  1 .  .  80  loop 
Directory (J) ;  =  '  '  ; 
end  loop;  > 

for  K  in  1 . .cur_dir_index  loop 
for  L  in  1..80  loop 

current_directory (K) (L) :='  ' ; 
end  loop ; 
end  loop; 

for  A  in  1..27  loop 

directory _array (A) ; 
end  loop ; 
cur_dir_index : =1 ; 

end  cancel_Event ; 
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ok_Event 


--  Subprogram  SPEC  U  BODY 


procedure  ok_Event 

(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

- -  I  NOTES :  ( none ) 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N, K, J, P : Integer : =1 ; 
begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info.Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm,Vm_Extract_SVAL  ( Info . Parm_Ptr,  1,  Value(l)); 
end  i f ; 

--ADDED 

strlen ( selected, N) ; 
strlen (Directory , K) ; 
strlen (library , J) ; 
strlen (component,  ?)  ; 

system_call (com&"cv  "&library ( 1 . . J) *&component (1 . . P) &"  outpsdl 
out  spec  ov.tbody" )  ; 

system_call ( "cp  outpsdl  "&Directory (1 . .K) &* / 

"Sccomponent  ( 1 .  .  P)  Sc"  .psdl* )  ;  ’ 

system_call  ( "cp  outspec  "&Directory  ( 1 .  .K)  Sc"  / 

"  Sccomponent  ( 1 .  .  P )  Sc " .  spec .  a " )  ; 

system_call  ( "cp  outbody  "ScDirectory  ( 1 .  .K)  Sc"  / 

"  Sccomponent  ( 1 .  .  P )  Sc "  .  body .  a " )  ; 

system_call ( "rm  outpsdl" ) ; 
system_call  ( "nti  outspec"); 
system_call ( "rm  outbody" ) ; 


--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE.Tae_Wpt .WPT_INVISIBLE) ; 
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Panel_select . Connect_Panel  (TAE.Tae_Wpt . WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
--ADDED 

TAE .Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
for  X  in  1..80  loop 
Directory (X) := ‘  ' ; 

end  loop; 

for  Y  in  1 . . cur_dir_index  loop 
for  Z  in  1 .  .  80  loop 

current_directory (Y) (Z) : = ■  *; 

end  loop ; 
end  loop; 

for  AA  in  1..27  loop 

directory _array (AA) : =  '  ’; 

end  loop ; 
cur_dir_index : =1 ; 

end  ok_Event ; 


directory_Event 


--  Subprogram  SPEC  &  BODY 


procedure  directory_Event 

{  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

--I  NOTES:  (none) 

Value  :  array  (1..1)  of  String  (1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count  :  TAE.Taeint; 

--ADDED 

N,M,K,S  :  integer:=l; 

Dummy : Boo lean; 

selected_vec : s_vector ( 1 . . 1 ) : =  (others=>  new  STRING ( 1 .. 80 )) ; 
begin  --  directory _Event 

--  Begin  default  generated  code 

TAE.Tae_Vm. Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE  .Tae_Vm.  Vm_Extract_SVAL  ( Info .  Parm_Ptr ,  1,  Valued)); 
end  i f ; 

--ADDED 
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selected: =Value ( 1)  (1.  .80)  ; 
parse_line (selected) ; 
strlen ( selected, N) ; 
strlen (Directory , M) ; 
if  Is_a_directory  then 
K:=N+M; 

Directory ( 1 . .K) : =Di rectory (1. .M)&"/“&selected(l. . (N-1) ) ; 
if  K>27  then 

directory _array  :=  Directory ( (K-26 ). .K) ; 

else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 

TAE . Tae_Vm . Vm_SetStr ing ( Info .View, "directorylabel " , 1 , directory _array , TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "directorylabel" , Info. View, “dir 
ectory label" ) ; 

system_call ( " Is  -F  "&Directory ( 1 . .K) &"  >  ls_f ile" ) ; 
list_directory  ( ls_f  ile,  f  ile_nciine,  file_vec, number )  ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints ( Info . Panel_Id, "directory" ,  taeint (nu 
mber) , file_vec) ; 

Diammy ;  =TAE .  Tae_Wpt .  Wpt_Pending  ; 
cur_dir_index : =cur_dir_index+l ; 

Current_directory (cur_dir_index) (1..N) : =selected ( 1 . .N) ; 
for  node  in  (N+l)..80  loop 

Current_directory (cur_dir_index) (node) :='  ' ; 

end  loop; 

system_call ( "rm  ls_file"); 

I s_a_di rectory : =FALSE; 

elsif  Upper_directory  then 

strlen (Current_directory (cur_dir_index) ,S) ; 
for  drct  in  (M-S+1)..£^0  loop 
Directory (drct );= ’ 
end  loop; 

if  (M-S)>27  then 

directory _array  :=  Directory (( (M-S) -26) .. (M-S) ) ; 

else 

directory _array  :=  Directory ( 1 .. 27 ) ; 
end  if; 

TAE. Tae_Vm.Vm_SetSt ring ( Info .View, "directorylabel " , 1 , dir ectory _ar ray , TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "directorylabel" , Info. View,  "dir 
ectory label" ) ; 
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cur_dir_ind6x : =cur_dir_index-l ; 

system_call ( “ Is  -F  “ &Dirsctory ( 1 . . (M-S) ) & "  >  ls_f ile“ ) ; 
list_directory ( ls_f ile, f ile_ncime, f ile_vec , number) ; 

TAE .Tae_Wpt . Wpt_SetStringConstraints { Info . Panel_Id, “directory" , taeint (nu 
mber) , file_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm  ls_file"); 

Upper_directory : =FALSE; 

else  --A  file  name  is  selected 

TAE. Tae_Wpt .Wpt_PanelMessage(info.panel_id, “SELECTION  IS  NOT  A 
DIRECTORY") ; 
end  if; 


--  End  default  generated  code 
end  directory _Event; 


--  end  EVENT  HANDLERS 


Dispatch_Item 


Subprograum  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 


begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("cancel",  User_Context_Ptr . Parm_Name)  then 
cancel_Event  {User_Context_Ptr) ; 

elsif  TAE .Tae_Misc . s_equal  (“ok",  User_Context_Ptr.Parm_Name)  then 
ok_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  (“directory",  User_Context_Ptr . Parm_Name) 
then 

directory _Event  (User_Context_Ptr )  ,- 
end  if; 

end  Dispatch_Item; 
end  Panel_3avecomp; 
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R.  PANEL  CDELWARN  PACKAGE 


1.  PAN  CDELWARN  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_cdelwarn_s .a 

--  ***  Generated  :  Aug  12  11:50:32  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


irirlrititie^cir-ieitirlrir'lrirltiiiriririrlrir-lriritir 


Panelcdelwarn 


--  Package  SPEC 


with  TAE; 
with  X_Windows; 

package  Panel_cdelwarn  is 


PURPOSE: 

This  package  encapsulates  the  TAE  Plus  panel:  cdelwarn 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel’s  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
f  ile ; 

The  panel's  naune  is  changed  (not  title) 

For  panel: 
cdelwarn 


Info  :  TAE .Tae_Wpt . Event_Context_Ptr ;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collect ion_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--I  panel 
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--I  EXCEPTIONS: 

--I  TAE .UNINITIALIZED_PTR  is  raised  if  Collection_Read  not  initialized 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  if  the  panel  is  not  in 
-- I  Collection_Read 


Create_Panel 


--  Subprogram  SPEC 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

:=  TAE.Tae_Wpt .WPT_PREFERRED; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Flags  sent  to  Wpt_NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE; 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel_State 
--I  and  stores  the  panel  Id  in  Info. Panel_Id. 


EXCEPTIONS : 


--I  TAE.UNINITIALIZED_PTR  is  raised  if  the  panel  is  not  initialized 
--)  TAE.TAE_FAIL  is  raised  if  the  panel  could  not  be  created 


Connect_Panel 


--  Subprogram  SPEC 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE  .Tae_Wpt  .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED; 


Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null_Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
--I  in  the  specif iec  Panel_State  and  stores  the  panel  Id  in 
--I  Info.Panel_Id. 

--I  If  this  panel  does  exist,  it  is  set  to  the  specified  Panel_State. 
--I  In  this  case,  Relative_Window  is  ignored. 

--I  EXCEPTIONS: 
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TAE . UNINITIALIZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
not  initialized 

TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
created 

TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE.Tae_Wpt .BAD_PANEL_ID  is  raised  if  Inf o . Panel_Id  is  an  invalid 
id. 


NOTES : 

Info . Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_cdelwarn; 
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2.  PAN_CDELWARN_B.A 

***  tAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_cdelwarn_b.a 

--  •**  Generated  :  Aug  12  11:50:32  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_cdelwarn  --  Package  BODY 

_  ★ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Global, Text_IO; 


--  One  "with"  statement  for  each  connected  panel, 
with  Panel_mainmenu; 
with  Panel_select ; 

package  body  Panel_cdelwarn  is 


NOTES : 

For  each  parauneter  that  you  have  defined  to  be  “event-generating*  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  naune  that  is  a  concatenation  of  the  paraimeter  name  and  "_Event". 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED ; 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
file: 

The  panel's  name  is  changed  (not  title) 

For  panel: 
cdelwarn 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  name  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

ok,  cancel 
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Init ialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  :=  new  TAE . Tae_Wpt . Event_Context ; 

Info. Collection  :=  Collection_Read; 

TAE . Tae_Co . Co_Find  ( Info . Collection,  "cdelwarn_v" ,  Info.View); 
TAE.Tae_Co.Co_Find  ( Info .Collection,  "cdelwarn_t * ,  Info.Target) ; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO.Put_Line  ( "Panel_cdelwarn.Initialize_ Panel : 

&  “Collection_Read  not  initialized."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO. Put_Line  (" Panel_cdelwarn . Initial ize_Panel : 

&  "(View  or  Target)  not  in  Collection.*); 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE.Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 
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begin 


Great e_Panel 


if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 


TAE . Tae_Wpt . Wpt_NewPane 1 
(  Duirany 
Data_Vm 
View_Vm 

Relative_Window 
User_Context 
Flags 
Panel  Id 


=>  , 

=>  Info. Target, 

=>  Info. View, 

=>  Relative_Window, 
=>  Info, 

=>  Panel_State, 

=>  Info. Panel_Id  ) ; 


else 

Text_IO . Put_Line  ("Panel  (cdelwarn)  is  already  displayed, 
end  if; 


exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_cdelwarn .Create_Panel :  " 

&  "Panel  was  not  initialized  prior  to  creation."); 
raise; 


when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( " Pane l_cdelwarn .Great e_Panel : 

&  "Panel  could  not  be  created."); 
raise; 

end  Greate_Panel ; 


Gonnect_Panel 


--  Subprogram  BODY 


procedure  Gonnect_Panel 
(  Panel_State  < 

;  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT.PREFERRED ; 

Relative_Window 

:  in  X_Windows .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Gonnect_Panel 

if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
Greate_Panel 

(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 
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else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_Id,  Panel_State) ; 
end  if; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( * Panel_cdelwarn .Connect_Panel :  “ 

Sc  "Invalid  panel  state."); 
raise; 

end  Connect_Panel ; 


Destroy_ Panel 


--  Subprogram  BODY 


procedure  Destroy_Panel  is 


begin  --  Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when  TAE.Tae_Wpt.BAD_PANEL_ID  => 

Text_IO.Put_Line  ( “Panel_cdelwarn.Destroy_Panel :  " 

&  " Info . Panel_Id  is  an  invalid  id."); 
raise; 

when  TAE.Tae_Wpt.ERASE_NULL_PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null;  ’ 

end  Destroy_Panel; 


K+ ++++++++++++++++++++++++++++++++++++++++ 


--  begin  EVENT  HANDLERS 


oJc_Event 


--  Subprogreun  SPEC  &  BODY 


procedure  ok_Event 
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(  Info  :  in  TAE .Tae_Wpt . Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

L,S  :  Integer :=1; 

begin  --  ok_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info.  Parm_Ptr,  1,  Valued)  ),- 
else 
null  ; 
end  i f ; 

--ADDED 

strlen (component , L) ; 
strlen ( library, S) ; 

system_call (com&"cd  “&library (1. .S)&“  “fccomponent ( 1 . . L) ) ; 

TAE .Tae_Wpt . Wpt_PanelReset ( Pane l_ma inmenu . Info . Panel_Id) ; 
for  Clean  in  1 . . (num_of_comp)  loop 
for  ch  in  1..80  loop 

file_vec (Clean) .all (ch) := ' 
end  loop; 
end  loop; 


--  End  default  generated  code 

--  Begin  generated  code  for  Connection 

Connect_Panel  ( TAE. Ta e_Wpt ,WPT_ INVISIBLE) ; 

Pane l_ma inmenu. Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  ok_Event; 


cancel_Event 


--  Subprogram  SPEC  &  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
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--I  PURPOSE: 

--I  ETVENT  HAMDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr ,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr ,  1,  Value(l)); 
else 
null  ; 
end  i f ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Connect_Panel  (TAE .Tae_Wpt .WPT_INVISIBLE) ; 

Panel_select .Connect_Panel  (TAE .Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 

end  cancel_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_Item 


--  Subprogreua  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

» 

--I  NOTES:  (none) 
begin  --  Dispatch_Item 

if  TAE .Tae_Misc . s_equal  ("ok",  User_Context_Ptr . Parm_Neune)  then 
ok_Event  (User_Context_Ptr) ; 

elsif  TAE.Tae_Misc.s_equal  ("cancel",  User_Context_Ptr . Parm_Naune)  then 
cancel_Event  (User_Context_Ptr ) ; 
end  if; 

end  Dispatch_Item; 
end  Panel_cdelwarn; 
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S.  PANEL  INTEGRATE  PACKAGE 


1.  PAN  INTEGRT  S.A 


***  TAE  Plus  Code  Generator  version  V5 . 1 
***  File  :  pan_integrt_s .a 

***  Generated  :  Sep  13  13:51:07  1992 
***  Revised  by  :  Dogan  Ozdemir 


*  Panel_integrt 


--  Package  SPEC 


with  TAE; 
with  X_W i ndows ; 

package  Panel_integrt  is 


PURPOSE : 

This  package  encapsulates  the  TAE  Plus  panel:  integrt 
These  subprograms  enable  panel  initialization,  creation,  destruction, 
and  event  dispatching.  For  more  advanced  manipulation  of  the  panel 
using  the  TAE  package,  the  panel's  Event_Context  (Info)  is  provided. 
It  includes  the  Target  and  View  (available  after  initialization) 
and  the  Panel_Id  (available  after  creation) . 

REGENERATED : 

The  following  Workbench  operations  will  cause  regeneration  of  this 
file: 

The  panel's  name  is  changed  (not  title) 

For  panel : 
integrt 


Info  :  TAE.Tae_Wpt .Event_Context_Ptr;  --  panel  information 


Initialize_Panel 


--  Subprogram  SPEC 


procedure  Initialize_Panel 

(  Collection_Read  --  TAE  Collection  read  from 

:  in  TAE.Tae_Co.Collection_Ptr  ) ;  --  resource  file 

--I  PURPOSE: 

--I  This  procedure  initializes  the  Info. Target  and  Info. View  for  this 
--t  panel 
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EXCEPTIONS : 

TAE. UNINITIALIZED. PTR  is 
TAE . Tae.Co . NO_SUCH_MEMBER 
Collection  Read 


raised  if 
is  raised 


Collection.Read 
if  the  panel  is 


not 

not 


initialized 

in 


Create.Panel 


--  Subprogram  SPEC 


procedure  Create.Panel 
{  Panel.State 

:  in  TAE.Tae.Wpt .Wpt.Flags 

: =  TAE . Tae.Wpt . WPT.PREFERRED; 

Relative.Window 

:  in  X.Windows .Window 

:=  X.Windows .Null.Window  ); 


--  Flags  sent  to  Wpt.NewPanel . 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null.Window 
--  uses  the  root  window. 


--I  PURPOSE: 

--I  This  procedure  creates  this  panel  object  in  the  specified  Panel.state 
--I  and  stores  the  panel  Id  in  Info.Panel.Id. 


EXCEPTIONS ; 


--I  TAE. UNINITIAL I ZED.PTR  is  raised  if  the  panel  is  not  initialized 
--I  TAE.TAE.FAIL  is  raised  if  the  panel  could  not  be  created 


Connect.Panel 


--  Subprogram  SPEC 


procedure  Connect.Panel 
(  Panel.State 

:  in  TAE. Tae.Wpt .Wpt_F lags 

: =  TAE . Tae.Wpt . WPT.PREFERRED ; 

Relative.Window 

:  in  X.Windows  .Window 

:=  X.Windows .Null.Window  ); 


--  Panel  origin  is  offset  from 
--  this  X  Window.  Null.Window 
--  uses  the  root  window. 


--  I 


PURPOSE : 

If  this  panel  doesn't  exist,  this  procedure  creates  this  panel  object 
in  the  specifiec  Panel.State  and  stores  the  panel  Id  in 
Info.Panel.Id. 

If  this  panel  does  exist,  it  is  set  to  the  specified  Panel.State. 
In  this  case,  Relative.Window  is  ignored. 
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--I  EXCEPTIONS: 

--I  TAE. UNINITIAL I ZED_PTR  is  raised  from  Create_Panel  if  the  panel  is 
--I  not  initialized 

--I  TAE.TAE_FAIL  is  raised  from  Create_Panel  if  the  panel  could  not  be 
-- I  created 

-- I  TAE . Tae_Wpt . BAD_STATE  is  raised  if  the  panel  exists  and  the 
--I  Panel_State  is  an  invalid  state 


Destroy_Panel 


--  Subprogram  SPEC 


procedure  Destroy_Panel ; 


--I  PURPOSE: 

--I  This  procedure  erases  a  panel  from  the  screen  and  de-allocates  the 
--I  associated  panel  object  (not  the  target  and  view). 


--I  EXCEPTIONS: 

--I  TAE .Tae_Wpt . BAD_PANEL_ID  is  raised  if  Info . Panel_Id  is  an  invalid 
id. 


NOTES : 


--I  Info. Panel_Id  is  set  to  TAE.NULL_PANEL_ID,  and  should  not  referenced 
--I  in  any  Wpt  call  until  it  is  created  again. 


Dispatch_Item 


--  Subprogram  SPEC 


procedure  Dispatch_Item 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr  ) ;  --  event. 

--I  PURPOSE: 

--I  This  procedure  calls  the  Event  Handler  specified  by  User_Context_Ptr 
--  I 

--I  EXCEPTIONS: 

--I  Application-specific 

end  Panel_integrt ; 
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2.  PAN_INTEGRT_B.A 

__  ***  taE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  pan_integrt_b.a 

--  ***  Generated  :  Oct  22  16:29:54  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


*  Panel_integrt  --  Package  BODY 

.  —  ★ 

with  TAE;  use  TAE; 
with  Text_IO; 
with  Global; 
use  Text_IO, Global ; 

--  One  “with"  statement  for  each  connected  panel, 
with  Panel_select ; 
with  Panel_mainmenu; 


package  body  Panel_integrt  is 


NOTES : 

For  each  parameter  that  you  have  defined  to  be  “event-generating*  in 
this  panel,  there  is  an  event  handler  procedure  below.  Each  handler 
has  a  name  that  is  a  concatenation  of  the  parameter  name  and  “_Event“. 
Add  application-dependent  logic  to  each  event  handler.  (As  generated 
by  the  WorkBench,  each  event  handler  simply  logs  the  occurrence  of 
the  event . ) 

You  may  want  to  flag  any  changes  you  make  to  this  file  so  that  if 
you  regenerate  this  file,  you  can  more  easily  cut  and  paste  your 
modifications  back  in. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

The  panel's  name  is  changed  (not  title) 

For  panel: 
integrt 

The  following  WorkBench  operations  will  also  cause  regeneration: 

An  item  is  deleted 

A  new  item  is  added  to  this  panel 

An  item's  neune  is  changed  (not  title) 

An  item's  data  type  is  changed 

An  item's  generates  events  flag  is  changed 

An  item's  valids  changed  (if  item  is  type  string  and  connected) 
An  item's  connection  information  changed 
For  the  panel  items: 

cancel,  integrate,  int_quit 
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Initialize_Panel 


--  Subprogram  BODY 


procedure  Initialize_Panel 
(  Collection_Read 

:  in  TAE.Tae_Co.Collection_Ptr  )  is 


begin  --  Initialize_Panel 

Info  ;=  new  TAE.Tae_Wpt .Event_Context; 

Info .Collection  :=  Collection_Read; 

TAE.Tae_Co.Co_Find  (Info. Collection,  “integrt_v",  Info.View); 
TAE.Tae_Co.Co_Find  ( Info. Collection,  “ integrt_t " ,  Info .Target ) ; 

exception 

when  TAE.trNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( “ Panel_integrt . Initialize_Panel : 

Sc  “Collection_Read  not  initialized.*); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

Text_IO. Put_Line  ( " Panel_integrt . Initialize_Panel :  “ 

Sc  “(View  or  Target)  not  in  Collection."); 
raise; 

end  Initialize_Panel ; 


Create_Panel 


--  Subprogram  BODY 


procedure  Create_Panel 
(  Panel_State 

:  in  TAE .Tae_Wpt .Wpt_Flags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

:  in  X_Windows  .Window 

:=  X_Windows .Null_Window  )  is 


begin  --  Create_Panel 
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if  Info . Panel_Id  =  Tae .Null_Panel_Id  then 
TAE . Tae_Wpt . Wpt_NewPane 1 

{  Dummy  =>  “ " , 

Data_Vm  =>  Info. Target, 

View_Vm  =>  Info. View, 

Relative_Window  =>  Relative_Window, 

User_Context  =>  Info, 

Flags  =>  Panel_State, 

Panel_Id  =>  Info. Panel_Id  ) ; 

else 

Text_IO . Put_Line  {"Panel  (integrt)  is  already  displayed. 

end  if; 

exception 

when  TAE.UNINITIALIZED_PTR  => 

Text_IO . Put_Line  ( " Panel_integrt .Create_Panel :  " 

Sc  "Panel  was  not  initialized  prior  to  creation."); 
raise; 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  ( “Panel_integrt .Create_Panel :  “ 

Sc  “Panel  could  not  be  created."); 
raise; 

end  Create_Panel; 


Connect_Panel  --  Subprogram  BODY 


procedure  Connect_Panel 
(  Panel_State 

:  in  TAE. Ta e_Wpt .Wpt_F lags 

: =  TAE . Tae_Wpt . WPT_PREFERRED ; 

Re 1 a t i ve_W i ndow 

:  in  X_Windows .Window 

:=  X_Window3 .Null_Window  )  is 

filename  :  Stringd.  .80)  :  =  (others=>'  '); 
Q,L,F,P,K;  Integer :=1; 

Diimmy  :  Boolean; 


begin  --  Connect_Panel 

if  Info. Panel_Id  =  Tae .Null_Panel_Id  then 
Create  Panel 


(  Relative_Window  =>  Relative_Window, 

Panel_State  =>  Panel_State  ) ; 

else 

TAE.Tae_Wpt .Wpt_SetPanelState  ( Info . Panel_ld,  Panel_State) ; 
end  i f ; 

- -ADDED 

strlen  (Query _psdl ,  Q) 
strlen ( component ,  L)  ; 
strlen (proto_prefix, P) ; 

K:=P+1; 

filename { 1 . -K) ; =proto_pref ix ( 1 . . P) ; 
if  Query  then 

--f  ilenaime  (K.  .  {2+Q)  )  :  =  Query_psdl  ( 1 .  .  (Q-4 )  )  ; 
filename (K+1 . . (K+ (Q-3 ) ) ) : =  Query _psdl ( 1 . . (Q-4 ) ) &"a" ; 

- - f i lename {2+Q) : = ' a ‘ ; 
else 

filename (K+1 . . (L+K+2 ) ) : =  component ( 1 . .L) &“ .a" ; 
end  i f ; 

strlen ( filename, F) ; 

TAE. Tae_Vm. Vm_SetString ( Info. View, *  filename" , 1 , filename ( 1 . . F) , TAE . Tae_Vm 
.P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Info. Panel_Id, "filename" , Info .View, " filename" 
)  ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
for  clean  in  1..80  loop 
filename (clean) :  =  '  '  ; 
end  loop; 

exception 

when  TAE . Tae_Wpt . BAD_STATE  => 

Text_IO . Put_Line  ( * Panel_integrt .Connect_Panel :  ’ 

&  "Invalid  panel  state."); 
raise; 

t 

end  Connect_Panel ; 


Destroy_Panel  --  Subprogram  BODY 


procedure  Destroy_Panel  is 
begin  --  Destroy_Panel 

TAE.Tae_Wpt .Wpt_PanelEra3e ( Info. Panel_Id) ; 
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exception 

when  TAE . Tae_Wpt . BAD_PANEL_ID  => 

Text_IO . Put_Line  ( "Panel_integrt .Destroy_Panel : 

Sc  ”  Info .  Panel_Id  is  an  invalid  id.“); 
raise ; 

when  TAE . Tae_Wpt . ERAS E_NULL_ PANEL  => 

--  This  panel  has  not  been  created  yet,  or  has  already  been  destroyed. 
--  Trap  this  exception  and  do  nothing, 
null  ; 

end  Destroy_Panel ; 


--++++++++++++++++++++•+++++++++++++++++++++++++++++++++++++++++++++++ 
--  begin  EVENT  HANDLERS 


cancel_Event 


--  Subprogram  SPEC  Sc  BODY 


procedure  cancel_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGS I ZE) ; 
Count  :  TAE.Taeint; 

Q,L  :  Integer :=1; 

begin  --  cancel_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info.Parm_Ptr,  Count); 
if  Count  >  0  then  i 

TAE.Tae_Vm.Vm_Extract_SVAL  (Info.Parm_Ptr,  1,  Value (1)); 
end  if; 

--  End  default  generated  code 
--ADDED 

system_call ( "rm  retrieved_p3dl“); 
system_call { "rm  retrieved_spec" ) ; 
system_call ( "rm  retrieved_body * ) ; 
system_call  ( "1:111  outfile"); 
system_call ( "rm  message"); 

--  Begin  generated  code  for  Connection 
Destroy_Panel ; 

Panel_select .Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 

--  End  generated  code  for  Connection 
end  cancel_Event ; 
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integrate_Event 


--  Subprogram  SPEC  &  BODY 


procedure  integrate_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--  I 

--I  NOTES : Invokes  the  code  for  integration 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

Q,X,P,C:  Integer;=l; 

begin  --  integrate_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  ( Info . Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info. Parm_Ptr,  1,  Value(l)); 
end  i f ; 

--ADDED 

strlen (proto_pref ix, X) ; 
strlen (path, P) ; 
strlen (component, C) ; 
if  Query  then 

strlen (Query _psdl, Q) ; 

if  proto_pref ix ( 1 . ,X) =Query_psdl ( 1 . .X)  then 

system_call ( "cp  outfile  "&path ( 1 . . P) &’ / “&Query_psdl ( 1 . . (Q- 

4) )&"a") ; 

else 

system_call ( "cp  outfile  "&path( 1 . . P) &" / 

"&proto_pref  ix  ( 1 .  .X)  Se* .  *&Query_psdl  (1.  .  (Q-4)  )&"a’)  ; 
end  i  f  ; 

system_call  ( "cp  retrieved_spec  "Stpath  ( 1 .  .  P) &"  / 

"&proto_pref  ix(  1 .  .X)  &  " .  "Sccomponent  ( 1 .  .C)  &  "_spec  .a" )  ; 

system_call ( "cp  retrieved_body  "Spath ( 1 . . P) &" / 

"&proto_prefix(l . .X)fit" . "icomponent ( 1 . .C) &"_body .a" ) ; 

else 

system_call ( "cp  outfile  "&path ( 1 . . P) &" / 

“Scproto_pref  ix(l .  .X)  &  " .  "Stcomponent  (1.  .C)&".a")  ; 

system_call  ( "cp  retrieved_spec  "Spath  ( 1 .  .  P)  Sc"  / 

"Scproto_pref  ix ( 1 .  .X)  Sc"  .  "ScComponent  ( 1 .  .C)  Sc"_spec  .a" )  ; 

system_call  ( "cp  retrieved_body  *&path  ( 1 .  .  P)  Si"  / 

"Scproto _pref  ix ( 1 .  .X)  Sc"  .  "Sccomponent  ( 1 .  .C)  Sc"_body-.a" )  ; 
end  if; 

Query :=False; 
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for  erase  in  1..80  loop 
Query _psdl (erase) ‘ ; 
end  loop; 

system_call ( “rm  outfile*); 
systein_call  ( "rm  message"); 
system_call ( "rm  retrieved_psdl " ) ; 
system_call ( "rm  retrieved_spec" ) ; 
system_call ( "rm  retrieved_body " ) ; 

--  End  default  generated  code 
--  Begin  generated  code  for  Connection 
Destroy_Panel ; 

Panel_mainmenu . Connect_Panel  (TAE.Tae_Wpt .WPT_VISIBLE) ; 
--  End  generated  code  for  Connection 

end  integrate_Event ; 


int_quit_Event 


--  Subprograim  SPEC  &  BODY 


procedure  int_quit_Event 

(  Info  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 

--I  PURPOSE: 

--I  EVENT  HANDLER.  Insert  application  specific  information. 

--I  NOTES:  Invokes  the  code  for  integration  and  terminates  the  program. 

Value  :  array  (1..1)  of  String  ( 1 . .TAE.Tae_Taeconf .STRINGSIZE) ; 
Count  :  TAE.Taeint; 

Q,X,P,C:  Integer :=1; 

begin  --  int_quit_Event 

--  Begin  default  generated  code 

TAE.Tae_Vm.Vm_Extract_Count  (Info. Parm_Ptr,  Count); 
if  Count  >  0  then 

TAE.Tae_Vm.Vm_Extract_SVAL  ( Info . Parm_Ptr,  1,  Valued)  ); 
end  i  f  ; 

--ADDED 

strlen(proto_prefix,X) ; 
strlen (path, P) ; 
strlen (component,  C) ; 
if  Query  then 

strlen (Query_psdl, Q) ; 

system_call ( "cp  outfile  ■&path( 1 . . P) &" / 

"&proto_pref ix( 1 . .X) &* . "&Query_psdl ( 1 . . (Q-4 ) ) &"a" ) ; 

system_call  ( "cp  retrieved_spec  "&path  ( 1 .  .  P)  £e"  / 

“&proto_pref  ix{  1 .  .X) &  " .  "&component  ( 1 .  .C)  Sc"_spec .a" )  ; 
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system_call ( "cp  retrieved_body  "&path( 1 . . P) &" / 
"£cproto_pref  ix  ( 1 .  .X)  &  "  .  "&component  ( 1 .  .C)  £c"_body  .a“  )  ; 
--system_call { "rm  “&Query_psdl ( 1 . .Q) ) ; 
else 

system_call  ( "cp  out  file  “Scpath  ( 1 .  .  P)  &"  / 
“&proto_pref  ix  ( 1 .  .X)  .  "Sccomponent  {l..C)&".a“); 

system_call ( "cp  retrieved_spec  "&path( 1 . . P) &" / 
“  &proto_pref  ix  ( 1 .  .X)  & "  .  “Sccomponent  ( 1 .  .C)  &"_spec  .a" )  ; 

system_call  ( “cp  retrieved_body  "£cpath(  1 .  .  P)  & "  / 
"&proto_pref  ix { 1 .  .X)  &"  .  "^component  ( 1 .  .C)  £t"_body . a“ )  ; 
end  if; 

system_call ( "rm  outfile"); 
system_call ( " rm  message"); 
system_call ( "rm  retrieved_psdl " ) ; 
system_call ( "rm  retrieved_spec“ ) ; 
system_call ( "rm  retrieved_body“ ) ; 

Global .Set_Application_Done; 

end  int_quit_Event ; 

--  end  EVENT  HANDLERS 


Dispatch_ICem 


--  Subprogram  BODY 


procedure  Dispatch_Item 

(  User_Context_Ptr  :  in  TAE.Tae_Wpt .Event_Context_Ptr  )  is 
--I  NOTES:  (none) 
begin  --  Dispatch_Item 

if  TAE.Tae_Misc .s_equal  ("cancel",  User_Context_Ptr . Parm_N£une)  then 
cancel_Event  (User_Context_Ptr ) ; 

elsif  TAE .Tae_Misc . s_equal  ("integrate",  User_Context_Ptr . Parm_Name) 
then 

integrate_Event  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Misc.s_equal  ("int_quit",  User_Context_Ptr.Parm_Name) 

then 

int_quit_Event  (User_Context_Ptr) ; 
end  i f ; 

end  Dispatch_Item; 
end  Panel_integrt ; 
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T.  SOFTBASE  SUPPORT  PACKAGE 


1.  SOFTBASE_SUPPORT_S.A 

__  »**  tAE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  ;  softbase_support_s .a 

--  *♦*  Generated  :  May  21  16:12:31  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

.  _  * 

*  sof tbase_Support  --  Package  SPEC 

—  —  * 


with  TAE; 

package  sof tbase_Support  is 


PURPOSE: 

This  package  encapsulates  the  operations  specific  to  a  resource  file. 
These  subprograms  enable  initialization  of  all  panels,  displaying 
all  initial  panels,  and  event  dispatching. 

REGENERATED: 

This  file  is  generated  only  once. 


Initialize_All_Panels 


--  Subprogram  SPEC 


procedure  Initialize_All_Panels 

(  Resource_File  --  N^une  of  resource  file. 

:  in  String  ) ; 

- -  I  PURPOSE : 

--I  This  procedure  initializes  all  the  panels  in  the  resource  file. 

--  I 

--I  EXCEPTIONS: 

--I  TAE.TAE_FAIL  is  raised  when  the  resource  file  could  not  be  read 
--I  TAE . Tae_Co . NO_SUCH_MEMBER  is  raised  when  one  of  the  panels  was  not  in 
--I  the  resource  file.  This  could  happen  if  a  panel  was  deleted  from 
--I  the  resource  file  (using  the  WorkBench)  after  the  code  was 
--I  generated. 

--  I 

--I  NOTES: 

--I  This  procedure  reads  in  the  resource  file  and  initializes  each  panel. 
--I  It  only  needs  to  be  called  once. 
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Create_Initial_Panels 


Subprogram  SPEC 


procedure  Create_Initial_Panels ; 

--I  PURPOSE: 

--I  This  procedure  displays  the  set  of  initial  panels. 


Dispatch_Panel 


--  Subprogram  SPEC 


procedure  Dispatch_Panel 

(  User_Context_Ptr  --  Wpt  Event  Context  for  a  PARM 

:  in  TAE.Tae_Wpt .Event_Context_Ptr;  --  event. 

Panel_In_Resource_File  --  True,  if  the  PARM  event 

:  out  Boolean  ) ;  --  occurred  in  one  of  the  panels 

--  of  this  resource  file. 

--  False,  otherwise. 

--I  PURPOSE: 

--I  This  procedure  dispatches  a  WPT_PARM_EVENT  to  the  appropriate 
panel '  s 

--I  Dispatch_Item  routine. 

--  I 

--I  EXCEPTIONS: 

-- I  Application-specific 

end  sof tbase_Support ; 


2.  SOFTBASE_SUPPORT_B.A 

***  taE  Plus  Code  Generator  version  V5 . 1 
--  ***  File  :  softbase_support_b.a 

***  Generated  :  Sep  14  09:04:39  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 

-  _  * 

*  sof tbase_Support  --  Package  BODY 
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with  TAE; 
with  Text_IO; 


--  one  “with"  for  each  panel  in  the  resource  file 

with  Panel_library ; 

with  Panel_lbselect ; 

with  Panel_libadd; 

with  Panel_lbdelete; 

with  Panel_ldelwarn ; 

with  Panel_mainmenu; 

v/ith  Panel_addf ile; 

with  Panel_compsel ; 

with  Panel_keyword; 

with  Panel_query; 

with  Panel_viewpsdl ; 

with  Panel_viewspec ; 

with  Panel_viewbody ; 

with  Panel_select ; 

with  Panel_cdelwarn; 

with  Panel_savecomp; 

with  Panel_integrt ; 

package  body  sof tbase_Support  is 


REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
file; 

A  panel  is  deleted 
A  new  panel  is  added 

A  panel's  neune  is  changed  (not  title) 

For  the  panels: 
library,  Ibselect,  libadd, 
compsel,  keyword,  query, 
cdelwarn,  savecomp,  integrt 


Ibdelete,  Idelwarn,  mainmenu,  addfile, 
viewpsdl,  viewspec,  viewbody,  select. 


Create_Initial_Panels 

--  Subprogram  STUB 

procedure  Create_Initial_Panels 

is  separate; 

Initialize_All_Panels 

-  -  Subprogreim  BODY 

.  - 

procedure  Initialize_All_Panels 
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(  Resource_File 

:  in  String  )  is 

Vm_Collection_Read  :  TAE . Tae_Co .CoLlection_Ptr ; 

begin  Initialize_All_Panels 

--  do  one  Co_New  and  Co_ReadFile  per  resource  file 
TAE . Tae_Co . Co_New 
(  Flags  =>  0, 

Coid  =>  Vm_Collection_Read  ) ; 

--  could  pass  P_Abort  if  you  prefer 
TAE . Tae_Co . Co_ReadFi le 

(  Coid  =>  Vm_Collection_Read, 

Spec  =>  Resource_File, 

Mode  =>  TAE.P_C0NT  ); 

Panel_library . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_lbselect . Initialize_Panel  (Vin_Collection_Read) ; 
Panel_libadd . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_lbdelete . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_ldelwarn . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_mainmenu . Initialize_Panel  (Vm_Collection_Read) ; 

Panel_addf ile . Initialize_Panel  (Vin_Collection_Read) ; 
Panel_compsel . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_keyword. Initialize_Panel  (Vnv_Collection_Read) ; 

Panel_query . Initialize_Panel  (Vm_Collection_Read) ; 

Panel_viewpsdl . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_viewspec . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_viewbody . Initiali2e_Panel  (Vin_Collection_Read) ; 
Panel_select . Initialize_Panel  (Vm_Collection_Read) ; 
Panel_cdelwarn . Initialize_Panel  (Vin_Collection_Read) ; 
Panel_savecomp . Initialize_ Panel  (Vm_Collection_Read) ; 
Panel_integrt . Initialize_Panel  (Vm_Collection_Read) ; 

exception 

when  TAE.TAE_FAIL  => 

Text_IO . Put_Line  { "res^ile_Support . Initialize_All_Panels :  " )  ; 

Text_IO . Put_Line  (Resource_File 

&  “  doesn't  exist  or  is  incorrectly  formatted."); 
raise; 

when  TAE.Tae_Co.NO_SUCH_MEMBER  => 

--  raised  from  one  of  the  panel's  Initialize_Panel 
raise; 

end  Initialize_All_Panels; 


Dispatch_Panel 


--  Subprogram  BODY 


procedure  Dispatch_Panel 
(  User_Context_Ptr 

:  in  TAE.Tae_Wpt .Event_Context_Ptr; 

Panel_In_Resource_Fi  le 
:  out  Boolean  )  is 

begin  --  Dispatch_Parin_Event 

Panel_In_Resource_File  :=  TRUE; 

if  TAE.Tae_Wpt . ( User_Context_Ptr,  Panel_library. Info)  then 
Panel_library . Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . " = "  {User_Context_Ptr ,  Panel_lbselect . Inf o )  then 
Panel_lbselect . Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . “ = “  (User_Context_Ptr ,  Panel_libadd . Info)  then 
Panel_libadd.Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . “ = "  (User_Context_Ptr ,  Panel_lbdelete . Info)  then 
Panel_lbdelete . Dispatch_Item  {User_Context_Ptr ) ; 
elsif  TAE .Tae_Wpt . “ (User_Context_Ptr ,  Panel_ldelwarn . Info)  then 
Panel_ldelwarn .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . “ = "  (User_Context_Ptr,  Panel_mainmenu . Info)  then 
Panel_maininenu.Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . "  =  “  (User_Context_Ptr ,  Panel_addf ile . Info)  then 
Panel_addf ile .Dispatch_Item  {User_Context_Ptr ) ; 
elsif  TAE.Tae_Wpt . (User_Context_Ptr,  Panel_compsel . Info)  then 
Panel_coinpsel  .Dispatch_Itein  {User_Context_Ptr )  ; 
elsif  TAE . Tae_Wpt . " = “  (User_Context_Ptr ,  Panel_keyword . Info)  then 
Panel_keyword.Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Wpt . {User_Context_Ptr ,  Pane l_query . Info)  then 
Panel_query .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt , " = •  (User_Context_Ptr,  Panel_viewpsdl . Inf o)  then 
Panel_viewpsdl .Dispatch_Itein  (User_Context_Ptr ) ; 
elsif  TAE.Tae_Wpt . (User_Context_Ptr ,  Panel_viewspec . Info)  then 
Panel_viewspec . Dispatch_Itein  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . ■ = •  (User_Context_Ptr ,  Panel_viewbody . Info)  then 
Panel_viewbody .Dispatch_Itein  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . ■ = •  (User_Context_Ptr,  Panel_select . Info)  then 
Panel_select .Dispatch_Item  (User_Context_Ptr) ; 
elsif  TAE . Tae_Wpt . " = *  (User_Context_Ptr ,  Panel_cdelwarn . Info)  then 
Panel_cdelwarn .Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . ■ = ■  (User_Context_Ptr,  Panel_savecomp . Info)  then 
Panel_savecomp.Dispatch_Item  (User_Context_Ptr ) ; 
elsif  TAE . Tae_Wpt . * = •  (User_Context_Ptr,  Panel_integrt . Info)  then 
Panel_integrt .Dispatch_Item  (User_Context_Ptr ) ; 
else 

Panel_In_Resource_File  :=  FALSE; 
end  i f ; 

end  Dispatch_Panel; 
end  softba3e_Support ; 
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U.  SOFTBASE_CREAT_INIT.A 

--  »**  TAE  Plus  Code  Generator  version  V5 . 1 

--  **♦  File  :  softbase _ creat_init.a 

--  ***  Generated  :  Aug  12  16:02:32  1992 
--  ***  Revised  by  :  Dogan  Ozdemir 


Great e_Initial Pane Is 


--  Subprogram  SUBUNIT 


separate  ( softbase_Support ) 
procedure  Create_Initial_Panels  is 


NOTES : 

This  subprogram  is  not  in  the  same  file  as  softbase_Support .a 
for  code  regeneration  purposes.  Therefore  it  is  a  subunit. 

Also  note,  that  the  parent  unit  "with"ed  in  all  of  the  panel  packages 
for  the  entire  resource  file,  so  this  unit  doesn't  need  to  "with"  in 
any  of  the  panel  packages. 

This  procedure  should  be  called  after  the  panels  in  the  initial  panel 
set  have  been  initialized. 

REGENERATED : 

The  following  WorkBench  operations  will  cause  regeneration  of  this 
f  ile : 

A  panel  is  added  to  the  initial  panel  set 
A  panel  is  deleted  from  the  initial  panel  set 
For  the  set  of  initial  panels: 

library,  Ibdelete,  Ibselect,  addfile,  query,  keyword,  compsel, 
save comp 


begin  --  Create_Initial_Panels 

Panel_library . Create_Panel ; 
Panel_lbdelete .Create_Panel ; 
Panel_lbselect .Create_Panel ; 
Panel_addf ile .Create_Panel ; 
Panel_query . Create_Panel; 
Panel_keyword.Create_Panel ; 
Panel_compsel .Create_Panel ; 
Panel_savecomp . Create_Panel ; 

end  Create_Initial_Panels ; 
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